• Напишите пожалуйста программу в Паскале:Написать программу,которая по номеру месяца выводит название следующего за ним месяца(с помощью оператора case) Например: если я ввожу 2 должно выйти март

Ответы 1

  • 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.

    • Автор:

      dennis94
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years