Решить в целых числах уравнение ax + b = 0. Вводятся 2 числа: a и b. Необходимо вывести все решения, если их число конечно, “NO” (без кавычек), если решений нет, и “INF” (без кавычек), если решений бесконечно много. Нужно решить в pascal ABC
Решить в целых числах уравнение ax + b = 0. Вводятся 2 числа: a и b. Необходимо вывести все решения, если их число конечно, “NO” (без кавычек), если решений нет, и “INF” (без кавычек), если решений бесконечно много. Нужно решить в pascal ABC
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program EquationSolution;
var
a, b: integer;
begin
// ввод значений a и b
writeln('Введите значения a и b: ');
readln(a, b);
// проверка на количество решений
if a <> 0 then
writeln('x = ', -b div a)
else if b = 0 then
writeln('INF')
else
writeln('NO');
end.