Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
TheHammer
22.07.2020 18:43 •
Информатика
Составить программу,которая в зависимости от порядкового номера месяца выводит на экран количество дней в этом месяце.рассмотреть два случая: 1.год високосный. 2.год не является високосным
Показать ответ
Ответ:
Misis11
12.07.2020 19:24
Program G;
Uses Crt;
Var count, num, ch: integer;
Begin
ClrScr;
Writeln('Год високосный? 1 - да, 0 - нет');
Readln(Ch);
If ch=1 then
Begin
Writeln('Введите номер месяца');
Readln(num);
Сase num of
1, 3, 5, 7, 8, 10, 12: writeln('В месяце 31 день.');
4, 6, 9, 11: writeln('В месяце 30 дней.');
2: writeln('В месяце 29 дней');
else writeln('Некорректный ввод данных')
End;
End
Else if ch=0 then
Begin
Writeln('Введите номер месяца');
Readln(num);
Сase num of
1, 3, 5, 7, 8, 10, 12: writeln('В месяце 31 день.');
4, 6, 9, 11: writeln('В месяце 30 дней.');
2: writeln('В месяце 28 дней');
else writeln('Некорректный ввод данных')
End;
End
Else writeln('Некорректный ввод данных');
Readln;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
mark086
15.11.2020 20:15
На рисунке фрагмент электронной таблицы. чему будет равно значение ячейки b4, в которую записали формулу =сумм(a1: b2; c3)...
Mandarinka0001
15.11.2020 20:15
Программа на c++. описать класс многочленов от одной переменной, задаваемых степенью многочлена и массивом коэффициентов. предусмотреть методы для вычисления значения...
РыжаяЛисичка7
16.05.2021 22:18
По каким областям знаний содержат информацию специализированные словари?...
KarinaZinovets
21.02.2022 20:24
Тут книжки живуть, усім знання дають....
Иванджелина
08.08.2021 18:27
Впаскале дан массив {x} размерностью n. требуется: превратить его так, чтобы в начале массива находились отрицательные элементы в порядке их прохождения в исходном...
shulgavitaliy1ozo6g1
08.08.2021 18:27
Please алгоритм, можно в pascal дан массив {x} размерностью n. требуется: превратить его так, чтобы в начале массива находились отрицательные элементы в порядке...
Anastasia0610201
08.08.2021 18:27
известны год, номер месяца и день рождения человека, а также год, номер месяца и день сегодняшнего дня. определите возраст человека (число полных лет). гарантируется,...
MELEKLER87
18.01.2020 06:03
Скласти словосполучення прикметник + прийменник+іменник...
aniyzelenev
18.01.2020 06:03
Над лесной поляной в шубке разобрать предложение по составу...
toigb1961
18.01.2020 06:03
1. каковы свойства воды? в чем заключается ее роль на нашей планете? 2. что такое гидросфера? из каких частей она состоит? 3. докажите, что гидросфера - сплошная...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Uses Crt;
Var count, num, ch: integer;
Begin
ClrScr;
Writeln('Год високосный? 1 - да, 0 - нет');
Readln(Ch);
If ch=1 then
Begin
Writeln('Введите номер месяца');
Readln(num);
Сase num of
1, 3, 5, 7, 8, 10, 12: writeln('В месяце 31 день.');
4, 6, 9, 11: writeln('В месяце 30 дней.');
2: writeln('В месяце 29 дней');
else writeln('Некорректный ввод данных')
End;
End
Else if ch=0 then
Begin
Writeln('Введите номер месяца');
Readln(num);
Сase num of
1, 3, 5, 7, 8, 10, 12: writeln('В месяце 31 день.');
4, 6, 9, 11: writeln('В месяце 30 дней.');
2: writeln('В месяце 28 дней');
else writeln('Некорректный ввод данных')
End;
End
Else writeln('Некорректный ввод данных');
Readln;
End.