Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 21.09.2013
Сообщений: 9
1

Вычисление суммы квадратов простых чисел, лежащих в заданном интервале (процедуры и функции)

21.09.2013, 17:32. Просмотров 912. Ответов 1
Метки нет (Все метки)

Требуется помощь в написании программы по поставленной задаче. Суть такова:
"Напишите программу вычисления суммы квадратов простых чисел, лежащих в интервале (M,N)."
Буду признателен за любую помощь.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.09.2013, 17:32
Ответы с готовыми решениями:

Вычисление суммы квадратов простых чисел, лежащих в заданном интервале
Составить программу вычисления суммы квадратов простых чисел, лежащих в интервале (M,N).

Функция вычисления суммы квадратов простых чисел, лежащих в заданном интервале
Составить программу вычисления суммы квадратов простых чисел, лежащих в интервале (M, N).

Напишите программу вычисления суммы квадратов простых чисел, лежащих в интервале (M,N)
с использованием функций

Напишите программу вычисления суммы квадратов простых чисел, лежащих в интервале (M,N)
Напишите программу вычисления суммы квадратов простых чисел, лежащих в интервале (M,N).

1
16 / 15 / 9
Регистрация: 20.09.2013
Сообщений: 65
22.09.2013, 22:38 2
Лучший ответ Сообщение было отмечено Joey как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Var
   PROST, M, N, Sum, i, j :LongInt;
 
.....
Sum := 0;
For i := (M+1) to (N-1) do begin
  //проверяем, является ли очередное число i простым: 
  PROST := 1;
  If i>3 then begin //т.к. меньше 4 - простые числа.
    j:=1;
    Repeat
      Inc(j); //начинаем проверку с деления на 2.
      If (i mod j = 0) then PROST:=0; //уже не простое число.
    Until (j=i-1) or (PROST=0);
  end;
  If PROST=1 //если число простое, то:
  then Sum := Sum + SQR(i);
end;
Edit1.Text := ('сумма квадратов простых чисел ='+ IntToStr(Sum));
если M, N входят в сам интервал, то будет:
Delphi
1
2
For i := M to N do begin
.....
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.09.2013, 22:38

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Составьте программу вычисления суммы квадратов простых чисел,лежащих в интервале (M,N)
Составьте программу вычисления суммы квадратов простых чисел,лежащих в интервале (M,N) Помогите...

Напишите программу вычисления суммы квадратов простых чисел, лежащих в интервале (M,N)
Напишите программу вычисления суммы квадратов простых чисел, лежащих в интервале (M,N).

Вычисление суммы простых чисел, лежащих на интервале
составить программу вычисления суммы простых чисел, лежащих на интервале (Т, 2Т-1) (Т>2)

Составте программу вычисления суммы квадратов составных чисел, лежащих в интервале (m,2m-1).Решить с использованием процедуры.
Составте программу вычисления суммы квадратов составных чисел, лежащих в интервале (m,2m-1). ...

Вычисление суммы квадратов простых чисел, которые лежат на интервале
составить программу вычисления суммы квадратов простых чисел, которые лежат на интервале нужно...

Составить программу вычисления суммы простых чисел , лежащих в интервале (Т;2Т-1) , Т>2.
помогите,пожалуйста задачу решить на паскале. нужно с помощью процедур\функций. Составить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.