Дан порядковый номер месяца, вывести на экран его название паскаль

naumovvalera96 naumovvalera96    3   02.07.2019 21:10    0

Ответы
ПолинаКот197 ПолинаКот197  02.10.2020 18:41
Var
A:byte;
Begin
WriteLn('Введи номер месяца');
Read(A);
Case A 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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика