Решить в целых числах уравнение ( ax - b ) / ( cx - d ) = 0. Входные данные Вводятся 4 числа: a, b, c и d Выходные данные Вывести значения корней и их количество, вывести фразу "Нет корней" при их отсутствии и вывести фразу "solution" если корней бесконечно много. Программа на Pascal
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.
Не работает
В чём ошибку пишет?
После введения чисел не выдаёт результата
Быстро исчезает?
program n5;uses crt;var a,b,c,d,x:integer;beginread (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);end.
перед end. поставьте readln;
Выполняю без CRT
Набрал 9999 выдал -1, на другие комбинации не даёт результата
через пробел нужно писать!
работал с readln