Question

Решить в целых числах уравнение ( ax - b ) / ( cx - d ) = 0.

Входные данные
Вводятся 4 числа: a, b, c и d

Выходные данные
Вывести значения корней и их количество, вывести фразу "Нет корней" при их отсутствии и вывести фразу "solution" если корней бесконечно много.

Программа на Pascal

Answer 1

program n5;

uses crt;

var a,b,c,d,x:integer;

begin

read (a,b,c,d);

if (b=0) and (a<>0)then write('solution');

if (b<>0) and (a=0)then write('нет корней');

if (b<>0) and (a<>0) and (b mod a=0) then write (-b div a);

readln;

end.