Написать программу pascal abc. написать программу которая по определенным числам a и b и введеному действию выполняет вычисление. программу надо сделать с оператором case m of. .
119
256
Ответы на вопрос:
Var a,b: integer; z: char; begin write('a = '); readln(a); write('b = '); readln(b); writeln('введите знак(+ , -, *, /)'); readln(z); case z of '+': writeln('a + b = ',a+b); '-': writeln('a - b = ',a-b); '*': writeln('a * b = ',a*b); '/': writeln('a / b = ',a/b); end; end.
//pascal abc.net v3.1 сборка 1172 var s: string; begin readln(s); if pos('& ',s)< > 0 then writeln('да') else writeln('нет'); end. пример ввода: a& b пример вывода: да
Популярно: Информатика
-
Kreizanova10.08.2020 01:14
-
ddcgsshrdfydd12.01.2023 07:29
-
Dvoecnik20.07.2022 17:52
-
esavinova6608.08.2021 13:52
-
ilyuza2004p06tr406.06.2020 20:14
-
peterburg114.11.2022 15:53
-
alinaetosila200401.06.2023 09:57
-
Лидуня27051617.01.2021 10:17
-
yanazyaka19.01.2021 22:58
-
krop4017.05.2022 07:15