Вопрос по информатике:
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз
program choise;
var N_M:integer;
writeln(' введи номер месяца ');
readln(N_M);
case N_M 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;
case N_M of
4,6,9,11:writeln(' 30 дней ');
1,3,5,7,8,10,12:writeln(' 31 дней ');
2:writeln(' 28 дней ');
end;
case N_M of
12,1,2:writeln(' зима');
3,4,5:writeln(' весна');
6,7,8:writeln(' осень');
9,10,11:writeln(' лето');
end;
end.
- 27.08.2016 14:58
- Информатика
- remove_red_eye 13474
- thumb_up 12
Ответы и объяснения 1
(' январь ',' февраль ',' март ',' апрель ',' май ',' июнь ',
' июль ',' август ',' сентябрь ',' октябрь ',' ноябрь ',' декабрь ');
procedure p(s:string);
begin
writeln(s);
end;
var N_M:integer;
begin
writeln(' введи номер месяца ');
readln(N_M);
case N_M of
1..12: p(month[N_M]);
else p(' такого месяца нет ');
end;
case N_M of
1,3,5,7,8,10,12: p(' 31 день ');
4,6,9,11: p(' 30 дней ');
2: p(' 28 дней ');
end;
case N_M of
12,1,2: p(' зима');
3,4,5: p(' весна');
6,7,8: p(' осень');
9,10,11: p(' лето');
end;
end.
Пример:
введи номер месяца
5
май
31 день
весна
- 28.08.2016 19:31
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.