Напишите прогрумму, которая по месяцу, будет выводить его название
1-январь
2-февраль и тд
Помогиите
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
9 лет назад