Решить в целых числах уравнение ax + b = 0.

Входные данные
Вводятся 2 целых числа: a и b.

Выходные данные
Необходимо вывести все решения, если их число конечно, “NO” (без кавычек), если решений нет, и “INF” (без кавычек), если решений бесконечно много.
НА ПИТОНЕ!!!

Ответ

Автор - armyforever2013

Ответ:

Объяснение:

Var

a,b:integer;

begin

Write('Введите a,b: '); Read(a,b);

if a<>0 then

if (b mod a)=0 then Writeln(-b div a) else Writeln('NO')

else

if b=0 then Writeln('INF') else Writeln('NO')

end.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.