КОД ПОМЕНЯТЬ!!!!!!!
var
a:array[1..99999]of boolean;
i,k,n,kol,kol2:integer;
begin
writeln('ВВедите кол-во чисел ');readln(n);
for i:=1 to n do
a[i]:=true;
kol:=0;
kol2:=0;
k:=2;
while k*k<=n do begin
if a[k] then begin
i:=k*k;
while i <=n do begin
a[i]:= false;
i:=i+k;
kol:=kol+1;
end;
end;
k:=k+1;
end;
for i:=1 to n do
if a[i] then begin
kol2:=kol2+1;
write(i,' ');
end;
writeln();
writeln('Кол-во шагов = ',kol);
writeln('Кол-во чисел = ',kol2);
end.
155
353
Ответы на вопрос:
Популярно: Информатика
-
AlinaAlina70725.05.2023 06:04
-
Kss14091605.05.2022 07:26
-
1104198017.12.2020 12:01
-
пончик33210.01.2022 23:42
-
ironthewolf7229.08.2020 09:37
-
gulnarakazimov05.02.2023 02:18
-
werty13pl1603.02.2021 03:32
-
SANH1L11.08.2021 23:53
-
yanapetelyakp070y823.02.2022 08:45
-
vichkapetrenko14.08.2022 21:09