Решить в целых числах уравнение ( ax - b ) / ( cx - d ) = 0.
Входные данные
Вводятся 4 числа: a, b, c и d
Выходные данные
Вывести значения корней и их количество, вывести фразу "Нет корней" при их отсутствии и вывести фразу "solution" если корней бесконечно много.
Программа на Pascal

Предыдущий
вопрос Следующий
вопрос

program Solution;

var
a, b, c, d: integer;

begin
readln(a, b, c, d);

if (a = 0) and (b = 0) then
writeln('solution')
else if (a = 0) then
writeln('Нет корней')
else if (c = 0) then
begin
if (d = 0) then
writeln('solution')
else
writeln('Нет корней');
end
else
begin
if (ad = bc) then
writeln('solution')
else
writeln('Нет корней');
end;
end.