Ученики школы № 100 любят загадывать загадки. Один ученик задумал два целых числа от 0 до 1000 и сообщил вам их сумму и их произведение. Напишите программу, угадывающую задуманные числа.

Question

Вова

14 ноября, 20:08

+2

Ответы (1)

Знаете ответ на вопрос?

Прохор · Answer 1

Var s, p, a, b: integer;

begin

readln (s, p) ;

a:=round ((s+sqrt (s*s-4*p)) / 2) ;

b:=s-a;

writeln (a,' ', b) ;

end.

Пример:

73 1200

48 25