Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Напишите прогрумму, которая по месяцу, будет выводить его название
1-январь
2-февраль и тд
Помогиите

Ответ оставил Гость

Var
a:integer;
begin
write(Введите номер месяца:);read(a);
case a of
1: write(Январь);
2: write(Февраль);
3: write(Март);
4: write(Апрель);
5: write(Май);
6: write(Июнь);
7: write(Июль);
8: write(Август);
9: write(Сентябрь);
10: write(Октябрь);
11: write(Ноябрь);
12: write(Декабрь);
end;
end.