Напишите программу, которая вводит с клавиатуры номер месяца и определяет, сколько дней в этом месяце. При вводе неверного номера месяца должно быть выведено сообщение об ошибке. Считается, что год невисокосный.
Входные данные
Входная строка содержит единственное целое число – номер месяца (возможно, неправильный).
Выходные данные
Выходная строка должна содержать одно целое число – количество дней в этом месяце или 0, если был введён неверный номер месяца.
Для ABCpascal
Ответы на вопрос
Ответил MarshalXaker
0
Program znanija;
Var a : Integer;
Begin
Readln(a);
Case A of
1,3,5,7,8,10,12: Writeln('31');
11,4,6,9 : Writeln('30');
2 : Writeln('29');
else Writeln('0')
end;
end.
Var a : Integer;
Begin
Readln(a);
Case A of
1,3,5,7,8,10,12: Writeln('31');
11,4,6,9 : Writeln('30');
2 : Writeln('29');
else Writeln('0')
end;
end.
Новые вопросы
Математика,
2 года назад
Физика,
2 года назад
Информатика,
9 лет назад
Геометрия,
9 лет назад
Обществознание,
10 лет назад
Алгебра,
10 лет назад