Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Контрольное задание №13-2 / 13-2 / zadanie_2
.pas program Zadanie_2;
var
M,N,j,b,k:word;
a: array[2..1000] of boolean;
S:real;
begin
writeln ('‚ўҐ¤ЁвҐ ¤Ё Ї®§®');
readln (M,N);a[1]:=false;
for j:=2 to N do
a[j]:=true;
b:=trunc(sqrt(N));
while k<=b do
begin
repeat
inc(k);
until a[k];
j:=2*k;
while j<=N do
begin
a[j]:=false;
j:=j+k;
end;
end;
for j:=M to N do
begin
if a[j] then
S:=sqr(j)+S;
end;
writeln ('‘㬬 Єў ¤а в®ў Їа®бвле зЁбҐ« § ¤ ®¬ ЁвҐаў «Ґ: ',S:10:0);
end.
var
M,N,j,b,k:word;
a: array[2..1000] of boolean;
S:real;
begin
writeln ('‚ўҐ¤ЁвҐ ¤Ё Ї®§®');
readln (M,N);a[1]:=false;
for j:=2 to N do
a[j]:=true;
b:=trunc(sqrt(N));
while k<=b do
begin
repeat
inc(k);
until a[k];
j:=2*k;
while j<=N do
begin
a[j]:=false;
j:=j+k;
end;
end;
for j:=M to N do
begin
if a[j] then
S:=sqr(j)+S;
end;
writeln ('‘㬬 Єў ¤а в®ў Їа®бвле зЁбҐ« § ¤ ®¬ ЁвҐаў «Ґ: ',S:10:0);
end.