ПАСКАЛЬ АБС.НЕТ составьте программу вычисления суммы квадратов ПРОСТЫХ чисел из...

Question

ПАСКАЛЬ АБС.НЕТ составьте программу вычисления суммы квадратов ПРОСТЫХ чисел из промежутка [M;N]

Answer 1

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.