ПАСКАЛЬ АБС.НЕТ составьте программу вычисления суммы квадратов ПРОСТЫХ чисел из промежутка [M;N]
Answers & Comments
Segrif
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.
Answers & Comments
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.