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

Напишите программу которая определяет является ли число простым.

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

Program PrimeNumber;

Uses Crt;

var i,f,n:integer;
begin

     clrscr;
      write(Введите число:);
      readln(n);

      f:=0;  
      for i:=2 to trunc(sqrt(n)) do
              if (n mod i)=0 then f:=1;
      if (f=0) then writeln(Число является простым)

                     else writeln(Число не является простым);
      readkey;
end.