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.

Answer 2

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

Answer 3

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.

Answer 4

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