Вопрос по информатике:
Срочно помогите плз
Перевести введенный номер месяца года (1,2...12) в его название (январь,февраль...декабрь)
Пожаловаться
- 18.10.2017 10:58
- Информатика
- remove_red_eye 3383
- thumb_up 22
Ответы и объяснения 1
Program yrok;
var a:integer;
begin
writeln ('Введите месяц');
readln(a);
if a=1
then writeln('январь')
else if a=2
then writeln('Февраль')
else if a=3
then writeln('Март')
else if a=4
then writeln('Апрель')
else if a=5
then writeln('Май')
else if a=6
then writeln('Июнь')
else if a=7
then writeln('Июнь')
else if a=8
then writeln('Август')
else if a=9
then writeln('сентябрь')
else if a=10
then writeln('октябрь')
else if a=11
then writeln('ноябрь')
else if a=12
then writeln('декабрь')
else writeln('такого месяца нет');
end.
var a:integer;
begin
writeln ('Введите месяц');
readln(a);
if a=1
then writeln('январь')
else if a=2
then writeln('Февраль')
else if a=3
then writeln('Март')
else if a=4
then writeln('Апрель')
else if a=5
then writeln('Май')
else if a=6
then writeln('Июнь')
else if a=7
then writeln('Июнь')
else if a=8
then writeln('Август')
else if a=9
then writeln('сентябрь')
else if a=10
then writeln('октябрь')
else if a=11
then writeln('ноябрь')
else if a=12
then writeln('декабрь')
else writeln('такого месяца нет');
end.
Пожаловаться
- 19.10.2017 02:14
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы