Поиск по этому блогу

четверг, 3 октября 2019 г.

Загадка

Петя и Катя – брат и сестра. Петя – студент, а Катя – школьница. Петя помогает Кате по математике. Он задумывает два натуральных числа X и Y (X,Y≤1000), а Катя должна их отгадать. Для этого Петя делает две подсказки. Он называет сумму этих чисел S и их произведение P. Помогите Кате отгадать задуманные Петей числа.

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

Входной файл INPUT.TXT содержит два натуральных числа S и P, разделенных пробелом.

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

В выходной файл OUTPUT.TXT выведите два числа Х и Y, загаданные Петей. Числа следует вывести в порядке неубывания своих значений, разделенные пробелом.

Примеры


INPUT.TXT
OUTPUT.TXT
1
4 4
2 2
2
5 6
2 3

Решение

var
   y,x,c,i:integer;
   fl:boolean;
   f,f1:text;
begin
   assign(f,'input.txt');
   reset(f);
   assign(f1,'output.txt');
   rewrite(f1);
   readln(f,x,y);
   if x>1 then
       begin
           c:=x div 2;
           i:=1;fl:=true;
           while (i<=c) and fl do
               begin
                  if i*(x-i)=y then begin write(f1, i,' ',x-i); fl:=false; end;
                  i:=i+1;
               end;
         end;
    close(f);
    close(f1);

end.



Комментариев нет:

Отправить комментарий