Подскажите, как правильно решить. Я когда ввожу данные в програму Паскаль, мне высвечивается, что в 17 строке ошибка и я не могу дальше понять, что делать. Ввести номер месяца и вывести количество дней в этом месяце.
Решение: Число дней по месяцам:
28 дней – 2 (февраль)
30 дней – 4 (апрель), 6 (июнь), 9 (сентябрь), 11 (ноябрь)
31 день – 1 (январь), 3 (март), 5 (май), 7 (июль),
8 (август), 10 (октябрь), 12 (декабрь)
Особенность: Выбор не из двух, а из нескольких вариантов в зависимости от
номера месяца.
program qq;
var M, D: integer;
begin
writeln('Введите номер месяца:');
read ( M );
case M of
2: begin D := 28; end;
4,6,9,11: begin D := 30; end;
1,3,5,7,8,10,12: D := 31;
else D := -1;
end;
if D > 0 then
writeln('В этом месяце',D, ' дней.')
else
writeln('Неверный номер месяца');
end.
204
212
Ответы на вопрос:
Популярно: Информатика
-
gamer310603.07.2022 22:25
-
cehrjdfyflz160318.07.2022 14:27
-
islamovaemilia123.12.2022 21:11
-
Гуманитарий4106.02.2023 21:01
-
Августина151128.03.2023 04:43
-
Kristing1511.08.2022 02:11
-
EdwardLab25.07.2021 14:31
-
07190000071918.04.2023 19:08
-
llGeexyll05.05.2021 19:40
-
marta419128.08.2021 01:28