Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
влад2313
17.02.2023 02:50 •
Информатика
Дні тижня пронумеровані наступним чином: 0 — неділя, 1 — понеділок, 2 — вівторок, …, 6 — субота. дано ціле число k, що лежить в діапазоні 1-365. визначити номер дня тижня для k-го дня року, якщо відомо, що цього року 1 січня було понеділком.
Ответ:
Macsum204
02.08.2020 11:15
Var k,n:integer;
begin
readln(k);
n:=k mod 7;
writeln('n = ',n);
end.
Пример:
34
n = 6
0,0
(0 оценок)
Популярные вопросы: Информатика
Serzhantiko
28.03.2023 01:36
Кто скажет правильно я ответила ? !...
Dianaasdfg
30.10.2022 13:28
Програма виконання малюнку 5 кіл які доторкаються одні до одних...
san4ez77
20.11.2021 10:37
Скажите кто-нибудь правильно я ответила или нет?...
Dariy69
17.02.2023 01:16
Что такое кэш память,простыми словами...
Антон1700
31.05.2021 22:45
Pascal. составить программу, в которой с оператора while посчитать сумму ряда тех пор пока член ряда не будет меньше 0.005....
Amaliya211013
25.05.2021 06:58
Написать программу, которая выводит на экран первую цифру числа, введёную с клавиатуры. (...
victory66
08.12.2020 00:10
Какие правила нужно соблюдать при наборе текста...
smasyanechka
18.04.2022 03:06
Переведите предложения на 1)любите ли вы китайский язык? 2)он играет хорошо на скрипке или на пианино? 3) он самый болтливый студент, не так ли ? 4) в какое время вы обычно встаёте...
АннаФайна
30.08.2020 19:48
Решите неравенство 15-6х меньше или равно 3...
arinadamnyanova
27.04.2021 04:35
Груз массой 150 лежит на дне лифта и давит на него с силой 1800 н. определите модуль и направление ускорения лифта....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
readln(k);
n:=k mod 7;
writeln('n = ',n);
end.
Пример:
34
n = 6