Программа, в зависимости от выбора пользователя, производит над двумя числами одну из четырех арифметических операций: сложение, вычитание, умножение или деление.
Решение:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | program choise_7; uses crt; var a, b: real; c: integer; begin clrscr; write(‘a > ‘); read(a); write(‘b > ‘); read(b); writeln(‘1 – сложение’); writeln(‘2 – вычитание’); writeln(‘3 – умножение’); writeln(‘4 – деление’); write(‘Номер операции > ‘); read(c); case c of 1: write(a:3:1,‘+’,b:3:1,‘=’, a+b:3:1); 2: write(a:3:1,‘-‘,b:3:1,‘=’, a–b:3:1); 3: write(a:3:1,‘*’,b:3:1,‘=’, a*b:3:1); 4: write(a:3:1,‘/’,b:3:1,‘=’, a/b:3:1); else write(‘Error’) end; readkey; end. |
Я уже 3 года торгую фьючерсами на Bybit и приглашаю тебя присоединиться и получить до $30 000 бонусами плюс скидки на комиссии:
Зарегистрироваться на Bybit
Чем больше депозит – тем больше бонусов. Также моим рефералам доступны торговые боты для трейдинга по самым выгодным тарифам.