3. Виправте помилки у програмі Друк простих чисел
const LIMIT = 500;
var i,j, lim: word; begin
writeln;
for i:=1 to LIMIT do begin
j:=2; lim:=round(sqrt(i));
while (i modj <> 0) and (i <= lim) do inc(i);
if (i > lim) then write(i,'');
end
end
Висновок:
const LIMIT = 500;
var i,j, lim: word; begin
writeln;
for i:=1 to LIMIT do begin
j:=2; lim:=round(sqrt(i));
while (i modj <> 0) and (i <= lim) do inc(i);
if (i > lim) then write(i,'');
end
end
Висновок: