Дана программа, переписать ее с помощью оператора case.

var a,b,x:real;

begin readln(a,b);

if a=0 then

if b=0 then

write('x-любое число')

else

write('нет решений')

else

write('x=',-b/a);

end.

1

Ответы и объяснения

2013-01-24T16:38:03+04:00

var a,b,x:integer;

begin readln(a,b);

case a OF 0: Write('x-любое число')

ELSE case b OF 0: Write ('нет решений')

ELSE Write ('x=',-b/a);

end;

end;

end.