Напишите программу в паскале: написать программу,которая по номеру месяца выводит название следующего за ним месяца(с оператора case) например: если я ввожу 2 должно выйти март
125
430
Ответы на вопрос:
var
month: 1..12; //номер месяца(число от 1 до 12)
begin
writeln('введите номер месяца');
readln(month);
case month of
1: writeln('февраль');
2: writeln('март');
3: writeln('апрель');
4: writeln('май');
5: writeln('июнь');
6: writeln('июль');
7: writeln('август');
8: writeln('сентябрь');
9: writeln('октябрь');
10: writeln('ноябрь');
11: writeln('декабрь');
12: writeln('январь');
end;
end.
program vndj;
uses crt;
var x,y: integer;
begin
clrscr;
readln(x);
if x< 0 then y: =4;
if x=0 then y: =2;
if x> 0 then y: =x;
writeln(y);
readln;
end.
последние условие скорее всего "x> 0", ибо ерунда получается
блок-схему сам рисуй
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
8964019745629.12.2022 00:56
-
jskzva106.06.2023 05:01
-
aishaefendieva22.10.2020 17:10
-
ealembi507.02.2023 08:10
-
ksulo30.09.2021 14:42
-
mashav88218.04.2021 05:27
-
konoval1i16.10.2022 04:46
-
Denkuzo17604.08.2022 06:20
-
grinanovatana206.05.2021 10:04
-
LOxxx2412409.01.2023 17:17
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.