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

Входные данные

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

Выходные данные

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

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

Question

Информатика

Афинаген

6 октября, 04:32

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

Входные данные

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

Выходные данные

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

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

+1

Ответы (1)

Знаете ответ на вопрос?

Ергения · Answer 1

program n5;

uses crt;

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

begin

read (a, b, c, d) ;

if (b=0) and (a0) then write ('solution') ;

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

if (b0) and (a0) and (b mod a=0) then write (-b div a) ;

readln;

end.