Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 865 б
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 uses crt; var r,t:integer; w:char; s:real; begin clrscr; writeln('vvedite operatsiyu'); readln(w); write('vvedite chisla r,t'); readln(r,t); case w of '+':s:=r+t; '-':s:=r+t; '/':s:=r/t; '*':s:=r*t; end; writeln('otvet',s:3:2); readln; end.
может так?
может так?
0
·
Хороший ответ
4 апреля 2023 23:38
Остались вопросы?
Еще вопросы по категории Информатика
1. В языке Паскаль использование циклов целесообразно: 1) для вычисления частного и остатка без использования операции деления 2) при расчете скорости...
Какие устройства ввода и вывода знаете?...
Дан условный оператор: if a<5 then c:=1 else if a>5 then c:=2 else c:=3 Какое значение имеет переменная a , если в результате выполнения условно...
При присваивании изменяется: a) тип переменной b) значение константы c) имя переменной d) значение переменной...
Является ли условным оператором следующая последовательность символов a) if x<y then x:=0 else read (y) б)if x>=y then x:=0; y:= else write (z)...