Ввести номер месяца и вывести количество дней в нем, а также число ошибок при вводе.С использованием case. Массивы не проходили.
5-9 класс
|
Не совсем понятно, что значит число ошибок при вводе?
Могу предложить такой вариант решения:
program Dni;
var
m:integer;
Begin
writeln('Введите номер месяца');
readln(m);
case m of
1,3,5,7,8,10,12:writeln('31 день');
2:writeln('В високосном году в феврале 29 дне, в обычном году - 28 дней');
4,6,9,11:writeln('30 дней');
else writeln('В году 12 месяцев. Вы ввели ошибочный номер');
END.
Другие вопросы из категории
Стадион
Чтение
Мираж
Описать функцию Quarter(x, y) целого типа, определяющую номер координатной четверти, в которой находится точка с ненулевыми вещественными координатами (x, y). С помощью этой функции найти номера координатных четвертей для трех точек с данными ненулевыми координатами.
Читайте также
Учтите что слова "дней" может иметь также формы "день" и " дня "
1.Даны целые цисла m и n. если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны, то заменить числа нулями.
2.Составить программу, которая по заданному году и номера месяца m определяет количество дней в этом месяце.
порядке убывания
которая по заданному году и номеру месяца m определяет оличество дней в этом месяце