Дистанционная подготовка: 10, 11, 13 тесты. нужна помощь( на месте пробелов больше или равно)о
10, 11, 13 тесты. нужна помощь( на месте пробелов больше или равно)о
от zzz zzz - Воскресенье 2 Октябрь 2016, 13:28
261. Сложное уравнение
  program r;

var
a, b, c, d: longint;

begin
read(a, b, c, d);
if (c = 0) then
if (d = 0) then writeln ('NO')
else if ((b mod a)=0) and ((c*(-b/a) +d) 0) and (a 0) then writeln (-b/a);
if (a = 0) then
if (b 0) then writeln ('NO')
else writeln ('INF')
else
if (a 0) then
if ((b div a) = (b / a)) and ((-d / c) 0) and ((-b / a) (-d / c)) then writeln (-b div a)
else writeln ('NO');
end.