Question

Дано число.Определить является ли оно простым. Программа на паскале. Напишите через while ИЛИ repeat.Заранее спасибо)

Answer 1

Var n,i: integer;
begin
 write('Введите целое число = ');
 readln(n);
 i:=2;
 while (n mod i <> 0) do i:=i+1;
 if i=n then writeln('Число ',n,' простое')
        else writeln('Число ',n,' не простое');
end.