Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
koneshno
18.09.2021 12:27 •
Информатика
Дано целое число k(1< =k< =365).определить каким днем недели (понедельником ) является k-ый день невисокосного года ,в котором 1 января -понедельник
Показать ответ
Ответ:
АРТЁМ55567
02.10.2020 05:27
Pascal
var k,a : integer;
begin
readln (k);
a := k mod 7;
case a of
1 : writeln (k,' Понедельник');
2 : writeln (k,' Вторник');
3 : writeln (k,' Среда');
4 : writeln (k,' Четверг');
5 : writeln (k,' Птница');
6 : writeln (k,' Суббота');
0 : writeln (k,' Воскресенье');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ApollaKop
11.02.2023 06:48
Тест по информатике Файловая структура. Маски 1. Файловая структура бывает ... а) иерархической б) простой в) сложной г) многоуровневая 2. Имя файла состоит из ... а) неограниченного...
Kairas
19.05.2023 07:26
Заранее Музыкальный фрагмент был оцифрован и записан в виде файла без использования сжатия данных. Получившийся файл был передан в город А по каналу связи за 40 секунд. Затем тот...
Volosyaka
21.09.2020 21:56
Здравствуйте с информатикой, нужно решить задачу, связанной с базами данных...
катя4764
23.03.2020 02:55
В какой вкладке выполняются настройки Панели быстрого доступа и Автосохранения?...
coopersmith
27.08.2021 09:52
В электронной таблице выделены 15 ячеек, расположенных в столбце F, начиная со строки 7. Запишите адрес выделенного диапазона....
Moldir94
12.05.2021 21:29
СДЕЛАЙТЕ ТАКУЮ ТАБЛИЦУ В EXCEL Отправить файл можно тут...
Niki1917
06.12.2022 15:53
Распечатать список студентов, фамилии которых начинаются с буквы б, и их даты рождения написать программу в паскале...
зарница55
09.09.2020 12:39
Ваня по утрам часто одевается в темноте, чтобы не разбудить свою маленькую сестренку, и поэтому иногда приходят в школу в разных носках. у него лежат 4 пары носков: красный черный...
Lisa18811
21.02.2023 04:45
Вы можете использовать алфавит из двух символов c и d сколько разных 3 символьных слов существует в этом алфавите для ответа на вопрос постройте схему выпишите все слова начинающиеся...
Нурик2266
24.04.2023 06:48
Очень надо Варианты ответов: 1. Скрещиваются Перпендикулярны Пересекаются Совпадают Параллельны 3. Скрещиваются Перпендикулярны Пересекаются Параллельны 4. Параллельны Пересекаются...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var k,a : integer;
begin
readln (k);
a := k mod 7;
case a of
1 : writeln (k,' Понедельник');
2 : writeln (k,' Вторник');
3 : writeln (k,' Среда');
4 : writeln (k,' Четверг');
5 : writeln (k,' Птница');
6 : writeln (k,' Суббота');
0 : writeln (k,' Воскресенье');
end;
end.