Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
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 05:14
Остались вопросы?
Еще вопросы по категории Информатика
(паскаль) Написать программу пересчета веса из фунтов в килограммы (1 российский фунт равен 409,5 г). Ниже представлен рекомендуемый вид экрана во вре...
Опишите структуру доменной системы имён...
1.Отметьте все операторы, в результате выполнения которых на экран выводится значение переменной a. 1)read(a);2)write(a);3)a:=25;4)write('Ответ...
Для чего предназначена Корзина OC Windows? ...
В одной из кодировок Unicode каждый символ кодируется 16 битами. Определите размер следующего предложения в данной кодировке...