ПАСКАЛЬ АБС.НЕТ составьте программу вычисления суммы квадратов ПРОСТЫХ чисел из промежутка [M;N]
ПАСКАЛЬ АБС.НЕТ составьте программу вычисления суммы квадратов ПРОСТЫХ чисел из промежутка [M;N]
Гость
Ответ(ы) на вопрос:
Гостьvar
x,d,m,n,s:integer;
begin
read(m,n);
for x := m to n do
begin
d := 2;
while (d < x) and (x mod d <> 0) do
d := d + 1;
if x = d then
s := s + sqr(x);
end;
write(s)
end.
Не нашли ответ?
Похожие вопросы