Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
ivanoffandreii
21.02.2023 02:13 •
Информатика
Составить программу, которая по номеру месяца, введенного с клавиатуры, выводит количество дней в нем. в программе учесть количество дней в феврале для високосного и не високосного годов
Показать ответ
Ответ:
erzhankenzhekan
25.08.2020 15:31
Var
a: array[1..12] of string;
i: integer;
begin
a[1] := '31';
a[2] := '28 или 29';
a[3] := '31';
a[4] := '30';
a[5] := '31';
a[6] := '30';
a[7] := '31';
a[8] := '31';
a[9] := '30';
a[10] := '31';
a[11] := '30';
a[12] := '31';
readln(i);
writeln(a[i]);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
pollyj
02.08.2022 23:00
составить блок-схему на языке Си...
лена062
27.01.2023 17:21
Построить блок схему Вводятся три разных числа. Найти, какое из них является средним (больше одного, но меньше другого)....
вадимм2
24.05.2020 07:00
Задание на языке Python...
mixaqwer
01.04.2020 18:43
Pascal.задать массив из вещественных чисел размерностью [1...15]. Циклически сдвинуть его на 2 позиции вправо. Сдвинутый массив упорядочить по возрастанию....
umka2345
23.07.2020 23:00
25. Напишите программу, которая ищет среди целых чисел, принадлежа- щих числовому отрезку (100 000; 250 000), числа, которые можно предста-вить в виде произведения...
Falkon5511
09.07.2020 18:01
сделать информатику. Найдити значение выражения: А) 55 div 10+14 Б)205 mod 100+1 В)(32 mod 4+1)*24 div 5 Г)23 div 6*5 mod 3-1...
Erosa51
19.09.2020 20:36
Заполни пропуски в алгоритме. ингредиенты: 2 картофелины, 4 морковки, 5 яиц, 381 г отварной свинины, 4 помидора, 1 2.png (или зелёный), 1 банка консервированного горошка,...
margaritabennioxwu8x
16.09.2020 08:36
Уменя фотоаппарат nikon coolpix b 500 подойдёт ли для него стабилизатор dji ronin-sc...
123456789785
19.10.2022 19:14
Решить три ! 1.вычислите сумму данных 100 натуральных чисел. вводятся 100 чисел, сумму которых необходимо посчитать. 2.вводится число n, а затем n чисел. подсчитайте,...
Lapatkoanna
19.10.2022 19:14
Какое значение будет иметь переменная z при x=1, y=1 после выполнения операторов: z: =0; if x 0 then if y 0 then z: =1 else z: =2;...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: array[1..12] of string;
i: integer;
begin
a[1] := '31';
a[2] := '28 или 29';
a[3] := '31';
a[4] := '30';
a[5] := '31';
a[6] := '30';
a[7] := '31';
a[8] := '31';
a[9] := '30';
a[10] := '31';
a[11] := '30';
a[12] := '31';
readln(i);
writeln(a[i]);
end.