Ответы на вопрос:
Var a,b,c,x: real; begin repeat writeln('введите тип арифм. операции (1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - остановить программу'); readln(x); if x=1 then begin writeln('введите 2 числа'); readln(a,b); c: =a+b; writeln('ответ: ',c); end; if x=2 then begin writeln('введите 2 числа'); readln(a,b); c: =a-b; writeln('ответ: ',c); end; if x=3 then begin writeln('введите 2 числа'); readln(a,b); c: =a*b; writeln('ответ: ',c); end; if x=4 then begin writeln('введите 2 числа'); readln(a,b); c: =a/b; writeln('ответ: ',c); end; if x=0 then writeln('пока! '); until x=0; end.
Популярно: Информатика
-
Sinci16.05.2023 08:18
-
АниАпельсинка17.10.2020 01:13
-
Xkdidid17.08.2022 07:49
-
Vlad1521806.10.2020 05:59
-
lopas1234123413.10.2021 04:00
-
Котик252511.05.2020 09:45
-
elliaana08.01.2021 06:44
-
ivan20030208.08.2020 07:06
-
Makalllla112230.07.2021 20:40
-
freight133727.12.2022 19:23