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

Задание:

Дана программа, переписать ее с помощью оператора case. var a,b,x: real; begin readln (a,b); if a=0 then if b=0 thenwrite ('x-любое число')

Решение:

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.

Знаете другой ответ?

Отправить свой ответ