Question

Петя и Катя - брат и сестра. Петя помогает Кате по математике. Он задумывает два натуральных числа х и у (x,y<=1000). а Катя должна их отгадать. Для этого Петя делает две подсказки. Он называет сумму этих чисел S и их произведение Р. Помогите Кате отгадать задуманные Петей числа. PASCAL.

Answer 1

Просто перебираем все возможные x и y.

Free Pascal Compiler version 3.0.2

var x, y, S, P: integer;

begin

   readln(S, P);

   for x := 1 to 1000 do

       for y := 1 to 1000 do

           if (x + y = S) and (x * y = P) then

               writeln(x, ' ', y);

end.

Пример ввода:

99 1458

Пример вывода:

18 81

81 18

Answer 2

Вот решение задачи на Pascal:

arduinoCopy code
program GuessNumbers;
var
  S, P, x, y: integer;
begin
  // Получаем от Пети подсказки
  writeln('Введите сумму и произведение чисел:');
  readln(S, P);
  
  // Перебираем все возможные пары чисел, пока не найдем подходящие
  for x := 1 to 1000 do
  begin
    for y := 1 to 1000 do
    begin
      if (x + y = S) and (x * y = P) then
      begin
        writeln('Задуманные числа: ', x, ' и ', y);
        exit; // выходим из программы после нахождения ответа
      end;
    end;
  end;
  
  writeln('Не удалось отгадать числа.');
end.

В этой программе мы сначала получаем от пользователя сумму и произведение задуманных чисел. Затем мы перебираем все возможные пары чисел в диапазоне от 1 до 1000 и проверяем, подходят ли они под заданные подсказки. Если мы находим подходящую пару, мы выводим ее на экран и завершаем программу. Если не удалось найти подходящие числа, мы сообщаем об этом пользователю.