Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.