{ Составить программу печати всех простых чисел до 500 }
const LIMIT = 500;
var i,j,lim : word;
begin { основная программа }
writeln; {перевод строки, начинаем с новой строки}
for i:=2 to LIMIT do begin
j:=2; lim:=round(sqrt(i));
while (i mod j <> 0) and (j <= lim) do inc( j );
if (j > lim) then write( i,' ' );
end;
end.
Красноярский краевой Дворец пионеров, (c)2006 - 2021, E-mail: admin@acmp.ru