Задание
s,i,m:integer;
BEGIN
for i:=1 to n do a
m := 2; s:=0;
while m*m <= N do begin
if A
i := m*m;
while i <= N do begin
A
i := i + m;
end;
end;
m := m + 1;
end;
for i:=1 to n do
if a
Writeln\(s\);
END.
Какой ответ будет напечатан в результате выполнения следующей программы?
Const n=35;
var a:array
\[1\.\.n\]
of boolean;s,i,m:integer;
BEGIN
for i:=1 to n do a
\[i\]
:=true;m := 2; s:=0;
while m*m <= N do begin
if A
\[m\]
then begini := m*m;
while i <= N do begin
A
\[i\]
:= False;i := i + m;
end;
end;
m := m + 1;
end;
for i:=1 to n do
if a
\[i\]
then s:=s+i;Writeln\(s\);
END.
- 153
- 159
- 165
- 160