Лучшие помощники
- 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
Остались вопросы?
Еще вопросы по категории Информатика
Составить программу сколько воскресений в 2022 году ...
Сделайте вот такую корону в кумире,прошу...
Запишите раздел описания переменных,необходимых для вычисления: а) значения функции y=x^2 б) площади прямоугольника в) стоимости покупки, состоящей...
Какими клавишами можно скопировать текст в буфер обмена? А) Ctrl + Ins Б) Shift + Del В) Alt + Ctrl Г) Shift + Ins...
1. Указать результат при работе с файлами file = open ("Input.txt", "a") file = open ("Input.txt", "w") file = open ("Input.txt", "r" ) Открывает файл...