Предмет:
ИнформатикаАвтор:
estradaАвтор:
esperanzaizi0Автор:
acostaАвтор:
charles62Просто перебираем все возможные 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
Автор:
rockybxxaДобавить свой ответ
Предмет:
МатематикаАвтор:
rexmullenОтветов:
Смотреть
Предмет:
АлгебраАвтор:
frankycrossОтветов:
Смотреть
Предмет:
Английский языкАвтор:
tillyОтветов:
Смотреть