Дистанционная подготовка: что у меня не правельно
что у меня не правельно
от Зоя Калабзина - Пятница 13 Май 2016, 13:51
261. Сложное уравнение
  program kj;
var a,x: real; b,c,d,f: integer;s:string;
begin
readln(a);
readln(b);
readln(c);
readln(d);
f:=0;
if ((a=c) and (b=d))
then s:='NO'
else
begin
if ((a=0 ) and (b0))
then s:='NO'
else
begin
if (a=0) and (b=0)
then s:='INF'
else
begin
if a0 then
begin
x:= -b / a; if (Int(x)=x) then f:=1;
if c0 then
if (x = -d/c) then s:='NO'
else if f=1 then str (x,s)
else s:='NO';
end;
end;
end;
end;
writeln(s);
end.


что в этой задаче недостаёт