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

Question

Алевтина

9 октября, 23:01

+4

Ответы (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