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

Question

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

Answer 1

97

irinak

01 апреля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: