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.