Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Xcalibur
03.08.2022 07:06 •
Информатика
Вычислить число и месяц в невисокосном году по номеру дня(информатика , написать программу )
Показать ответ
Ответ:
smit007agent
07.10.2020 01:42
Var
number, day, month: integer;
begin
writeln('Напишите день');
readln(number);
day := (number mod 30);
month := (number div 30);
writeln(day, '.', month);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
2007628475626
02.07.2021 22:24
Какие технические барьеры возникают при разработке стратегии, направленной на потребителя?...
bramekanep0akn0
04.04.2020 08:29
Ниже приведен некий факт, который связан с жизнью, творчеством, работой и т. д. известного человека, чьё имя было отгадано в первой части работы. Требуется заполнить пропущенные места....
LOL8KEKYC
26.08.2020 00:30
Увеличить на 3 данный массив справа от него, через ячейку, и затем стереть исходный. Каретка находится над крайней левой меткой....
лолитаfff
11.05.2022 19:57
Создать список заданной длины и записать в него заданное число(PYTHON) ЗАДАНИЕ ДЕЛАЕТСЯ ЧЕРЕЗ WHILE...
eduard7286
06.12.2020 01:50
Сколько байтов в предложении я изучаю информатику!...
AngelinaGi2006
02.03.2020 10:00
Начертить блок-схему к фразе: направо пойдешь - богатым будешь, налево пойдешь - женатым будешь, прямо пойдешь - коня потеряешь . 80...
NarkoBaronTif
14.04.2021 16:16
Пусть а[1], a[n] - целые числа. требуется найти сумму отрицательных и сумму неотрицательных элементов массива....
iprin
14.04.2021 16:16
На с#, ! ввести одномерный массив, вывести его. выяснить, какое число в массиве встретится ранее – положительное или отрицательное (нули не рассматривать). если положительное – найти...
666Dim
05.05.2023 21:07
Батько з чорними очима(а) і без ластовиння(с) і мати з блакитними очима(а) і ластовинням(с) мають двох дітей з блакитними очима і без ластовиння.визначте можливі генотипи батьків...
hatasa75
05.05.2023 21:07
На марсе есть 40 амеб типа a, 32 амебы типа b и 31 амеба типа c. любые две амебы двух разных типов могут слиться и образовать амебу третьего типа. через некоторое время на марсе осталась...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
number, day, month: integer;
begin
writeln('Напишите день');
readln(number);
day := (number mod 30);
month := (number div 30);
writeln(day, '.', month);
end.