program ZN;
var month:integer;
begin
write('Введите номер месяца: ');
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 ('Декабрь');
else writeln('Не бывает такого месяца :)');
end
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program ZN;
var month:integer;
begin
write('Введите номер месяца: ');
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 ('Декабрь');
else writeln('Не бывает такого месяца :)');
end
end.