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

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

выходные данные
необходимо вывести все решения, если их число конечно, “no” (без кавычек), если решений нет, и “inf” (без кавычек), если решений бесконечно много.
на !

Nastasia8879 Nastasia8879    3   07.10.2019 21:16    23

Ответы
uciviyciy uciviyciy  10.10.2020 02:30

Объяснение:

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика