Задание 7 Параграф 24 ГДЗ Семакин 8 класс (Информатика)

Ниже вариант решения задания из учебника Семакин, Залогова 8 класс, Просвещение:

7. Составьте программу проверки натурального числа на простоту, используя цикл с параметром (цикл с переменной).

program task_7;

var

n, d: integer;

begin

write(taskВведи натуральное число:task);

readln(n);

d := 2;

while d

begin

if n mod d = 0 then

begin

writeln(taskЧисло составноеtask);

exit

end

else

d := d + 1

end;

writeln(taskЧило простоеtask)

end.