Ответы на вопрос:
Program abc; var n: byte; x,y: double; begin writeln('введите два действительных положительных числа: '); readln(x,y); writeln('выберите арифметическое действие: '); writeln('1 – сложение'); writeln('2 – вычитание'); writeln('3 – умножение'); writeln('4 – деление'); readln(n); case n of 1: writeln('сумма = ',y+x); 2: writeln('разность = ',x-y); 3: writeln('произведение = ',x*y); 4: writeln('частное = ',x/y); end; end.
Популярно: Информатика
-
Vilka200820.09.2020 17:38
-
ArtemkaRus7101.11.2020 15:39
-
Renatka9627.06.2021 11:20
-
Metalmekid15.12.2020 21:36
-
solnisko2229.03.2020 14:36
-
maral150524.01.2020 17:58
-
KittyClab10.03.2023 10:37
-
dashasamoylova228.06.2021 08:01
-
daniil921124.02.2021 04:21
-
madina2004200416.03.2021 12:31