Дано число.Определить является ли оно простым. Программа ** паскале. Напишите через while...

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.

Comments

О,БОГИ!СПАСИБО ОГРОМНОЕ! А с repeat'ом можно?

---

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

---

Спасибо большое! Вы меня спасли