Question

Входные данные

Вводится одно натуральное число n не превышающее 2000000000 и не равное 1.


Выходные данные

Необходимо вывести строку prime, если число простое, или composite, если число составное.


Примеры

входные данные

5

выходные данные

prime

Решить через паскаль и через рекурсию

Answer 1

Ответ:

var n:integer;

   f:boolean;

procedure prostoe (var f:boolean;n,i:integer);

begin

if i<=n/2 then

  begin

    if (n mod i) = 0 then f:=false;

    Inc (i);

    prostoe (f,n,i);

  end;

end;

begin

f:=true;

readln (n);

prostoe (f,n,2);

if f=false then

  writeln ('composite')

else

  writeln ('prime');

end.