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.
6 votes Thanks 10
KrisGub
О,БОГИ!СПАСИБО ОГРОМНОЕ! А с repeat'ом можно?
petyaGavrikov
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.
Answers & Comments
Verified answer
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.
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.