Составьте программу либо через функцию или можно через процедуру:

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

2) Вычислить сумму простых не превосходящих заданного числа N.

Question

Информатика

Марюха

14 сентября, 17:39

Составьте программу либо через функцию или можно через процедуру:

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

2) Вычислить сумму простых не превосходящих заданного числа N.

+3

Ответы (1)

Знаете ответ на вопрос?

Аскольд · Answer 1

Var

n, m:integer;

procedure summa (a, b:integer) ;

var res:integer;

begin

while a<=b do

begin

res: = (a*a) + res;

a:=a+1;

end;

writeln (res) ;

end;

begin

readln (n, m) ;

summa (n, m) ;

end.