Предмет: Информатика,
автор: lalalala0007
Помогите пожалуйста!
Пользователь вводит число, если это число равно 1 , то это январь, если равно 2 , то это февраль , 3 - это март.
И т.д. 12 месяцев.
Ответы
Автор ответа:
2
{ Pascal }
PROGRAM Calendar(INPUT, OUTPUT);
VAR
Num: INTEGER;
BEGIN
WRITE('Введите номер месяца: ');
READ(Num);
CASE Num 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 Calendar(INPUT, OUTPUT);
VAR
Num: INTEGER;
BEGIN
WRITE('Введите номер месяца: ');
READ(Num);
CASE Num 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.
Похожие вопросы
Предмет: Русский язык,
автор: nikatuni1tuni
Предмет: Алгебра,
автор: irina89215
Предмет: Алгебра,
автор: davidsanzirov505
Предмет: Физика,
автор: luntik8
Предмет: Математика,
автор: nastyabranoves