Вопрос по информатике:
По номеру месяца вывести его название и время года,паскаль срочно
Пожаловаться
- 05.07.2018 02:57
- Информатика
- remove_red_eye 12850
- thumb_up 38
Ответы и объяснения 1
Var
N:byte;
Begin
ReadLn(N);
Case N 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;
Case N of
12,1,2:WriteLn('Зима');
3,4,5:WriteLn('Весна');
6,7,8:WriteLn('Лето');
9,10,11:WriteLn('Осень');
End;
End.
N:byte;
Begin
ReadLn(N);
Case N 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;
Case N of
12,1,2:WriteLn('Зима');
3,4,5:WriteLn('Весна');
6,7,8:WriteLn('Лето');
9,10,11:WriteLn('Осень');
End;
End.
Пожаловаться
- 06.07.2018 18:12
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы