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

[kirito_17]

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

[ZX Spectrum-128]

Если взглянуть чуть ниже. То там есть "похожие темы". Может найдете что-то похожее?

[Unique_Maks]

создаешь массив, пихаешь туда простые числа, указываешь интервал от и до какого вычислять, а потом в цикле пробегаешь по ним и считаешь, накапливая сумму в какой нить переменной

[Mad_Cat]

function isPrime(X: LongInt): boolean;
var i: integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) 
          then exit;
     i:=3;
     while i <= sqrt(x) do 
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;
var i,A,B : longint;
begin
   readln(a,b);
   for i:=a to b do
     if  isPrime(i) then Writeln(i,'  ',i*i);
   WriteLn;
   readln;
end.

(c)Serge_Bliznykov

5
13
5 25
7 49
11 121
13 169