Главная » Студентам, Учителям, Фракталенок, Школьникам

Поиск простых чисел

17 января 2016 Нет комментариев

Нижеприведенная программа написана для PascalABC и должна находить все простые числа от 1 до 100, но работает не верно. Кто найдет ошибку?

program shtaa2;
uses crt;
var i, x, k: integer;
begin
writeln(2);
writeln(3);
for x:= 4 to 100 do
begin
for i:= 2 to x-1 do
if x mod i = 0
then
k:=k+1;
if k = 0 then writeln (x)
end;
end.

Оставить комментарий или два

Вы можете подписаться на комментарии по RSS.