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.

Answer 2

Вот пример решения вашей задачи на Pascal, используя рекурсию:

pascalCopy code
program IsPrime;

function IsComposite(n: Integer; d: Integer): Boolean;
begin
  if d <= 1 then
    IsComposite := False
  else if (n mod d) = 0 then
    IsComposite := True
  else
    IsComposite := IsComposite(n, d - 1);
end;

var
  n: Integer;

begin
  readln(n);
  if IsComposite(n, n - 1) then
    writeln('composite')
  else
    writeln('prime');
end.

Этот код определяет, является ли заданное число составным с использованием рекурсивной функции IsComposite. Если число составное, то выводится "composite", в противном случае "prime".

Пример работы программы:

Copy code
Входные данные:
5

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

Простое число 5 возвращает "prime".