Question

Решить в целых числах уравнение ax + b = 0. Вводятся 2 числа: a и b. Необходимо вывести все решения, если их число конечно, “NO” (без кавычек), если решений нет, и “INF” (без кавычек), если решений бесконечно много. Нужно решить в pascal ABC

Answer 1

var a,b:integer;
x:real;
begin
writeln ('введи числа a и b');
readln (a,b);
if a=0 then writeln ('No')
else begin
x:=b/(-1*a);
writeln (x:5:2);
end;
end.


Я не представляю чисто с математической точки зрения, как тут может быть несколько вариантов, а уж тем более множество. Если приведешь примеры, я перепишу код

Answer 2

решал на информатиксе вот частичное решение 11 из 17 правильно var x,y,z,c:longint;
begin
readln(x);
readln(y);

if (x=0)and(y=0)then write('INF')
else
if(x=0)then write('NO')
else

z:=(0-y) div x;
if (z=0)and(x=0)and(y<>0)then write ('NO')
else
if (y=0)and(z=0)then write(0)
else