Лучшие помощники
- 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 23:38
Остались вопросы?
Еще вопросы по категории Информатика
Запишите IP- адрес, представленный четырьмя десятичными числами, в 32- битовом виде. а) 65.128.255.12 б) 192.48.0.24...
Названия планет в алфавитном порядке!!! Срочно!! плиззззз...
Что такое ПО и его назначение?...
Нет индексного свойства по умолчанию для типа integer исправьте пожалуйста program max; var ar:array[1..10]of integer; a,c,i,n:integer; begin for...
Помогите пожалуйста. Язык - Python. ДАЮ 100 БАЛЛОВ. Директор IT-школы Борис Иванович поручил Васе и Маше собрать пакеты с подарками. На столе стоят тр...