Question

Написать программу Pascal. Найти простые числа х и у, которые в произведении дают число z, типа longint.

Answer 1

число Z вводится

Pascal

var

 i, z: longint;

begin

 write('Введите Z : ');

 readln(z);

 for i:=1 to trunc(sqrt(z)) do begin

   if z mod i = 0 then

     writeln(i, ' * ', z/i);

 end;  

end.

Answer 2

Вот пример программы на языке Pascal, которая находит простые числа x и y, такие что их произведение равно заданному числу z:

program FindPrimeNumbers;
var
  x, y, z: longint;
  i, j: longint;
  isPrime: boolean;

function IsPrimeNumber(n: longint): boolean;
var
  k: longint;
begin
  IsPrimeNumber := true;
  if n < 2 then
    IsPrimeNumber := false
  else
  begin
    k := 2;
    while (k * k <= n) and IsPrimeNumber do
    begin
      if n mod k = 0 then
        IsPrimeNumber := false;
      Inc(k);
    end;
  end;
end;

begin
  writeln('Enter the value of z:');
  readln(z);

writeln('Finding prime numbers x and y such that x * y = ', z);

x := 2;
  while x <= z div 2 do
  begin
    y := z div x;
    if (x * y = z) and IsPrimeNumber(x) and IsPrimeNumber(y) then
    begin
      writeln('x = ', x);
      writeln('y = ', y);
      break;
    end;
    Inc(x);
  end;

if x > z div 2 then
    writeln('No prime numbers x and y found such that x * y = ', z);

readln;
end.

Программа начинает считывать значение z. Затем она перебирает числа от 2 до z/2 и проверяет, являются ли они простыми числами. Если число x является простым и z/x также является целым числом, то программа выводит значения x и y, иначе программа выводит сообщение о том, что такие числа x и y не найдены.

Примечание: Программа предполагает, что вводимое значение z является целым числом типа longint.

Надеюсь, это поможет! Если у вас есть еще вопросы, не стесняйтесь задавать.