Регистрация
Василий7595634
23.02.2020 14:22
Информатика
Есть ответ 👍

Көмек! 3 сынып, оьиниш​

201
338
Посмотреть ответы 1

Ответы на вопрос:

Титанэжжжжж
Титанэжжжжж
4,7(79 оценок)
Var x,y,z: real; sign: char; begin while true do begin write('sign: '); readln(sign); if sign = '0' then break; if sign in ['+','-','*','/'] then begin write('x='); readln(x); write('y='); readln(y); case sign of '+': begin z : = x + y; writeln(z: 5: 2) end; '-': begin z : = x - y; writeln(z: 5: 2); end; '*': begin z : = x * y; writeln(z: 5: 2); end; '/': if y < > 0 then begin z : = x / y; writeln(z: 5: 2) end else writeln('division by zero! '); end; end else writeln('bad sign! ') end; end.

Популярно: Информатика