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