Question

Решить в целых числах уравнение ax + b = 0. входные данные вводятся 2 целых числа: a и b. выходные данные необходимо вывести все решения, если их число конечно, “no” (без кавычек), если решений нет, и “inf” (без кавычек), если решений бесконечно много. в паскале, ! )

Answer 1

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.