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

Question

Напишите программу которая получает с клавиатуры натуральное число которое больше 1 и определяет простое оно или нет. Для этого нужно делить число на все натуральные числа начиная с 2 пока не получится деление без остатка repeat и until

Answer 1

program simple_num;

var n:integer;

function simple(num:integer):boolean;

var count, i:integer;

   key:boolean;

begin

   count := 0;

   i := 1;

   repeat

       if num mod i = 0 then

           inc(count);

       inc(i);

   until (i > num);

   if count > 2 then

       key := false

   else key := true;

   simple := key;

end;

begin

   writeln('Введите натуральное число больше 1');

   readln(n);

   if n > 1 then

       if simple(n) then

           writeln('Число ',n, ' простое')

       else writeln('Число ',n, ' непростое')

   else writeln('введено число менее 1');

end.