Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
aisylu0706
24.12.2020 23:17 •
Информатика
Обозначим дни недели числами от 1 (понедельник) до 7 (воскресенье) соответственно.известно, что первое число текущего месяца поподает на понедельник. на вход программе подается целое число 1
Ответ:
Denis99133
01.10.2020 21:33
Var n: integer;
begin
readln(n);
n:=n mod 7;
if n=0 then writeln(7) else writeln(n);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
GoldenLynx1999
23.12.2020 19:32
Что вы можете сказать о массиве, сформированном следующим образом? а) for i : =1 to 10 do a[i] : =random(101)-50 б) for i : =1 to 20 do a[i] : = i в) for i : =1 to 5 do a[i]...
badayevadiana20
29.05.2023 19:23
Паскаль описать перимтр прямоугольника...
Rasul101231
13.05.2023 17:55
Скажите одного или более файлов для уменьшения занимаемого места на диске ?...
ника2752
13.05.2023 17:55
Несжатое растровое изображение размером 64 ×512 пикселей занимает 32 кб памяти . каково максимально возможное число цветов в палитре изоображения...
Джеси123556
07.09.2022 10:46
Что такое форма представления информации...
Shabalina04
26.05.2020 21:44
Являются ли вводимые с клавиатуры числа a, b , c членами какой - либо прогрессии ( арифметической или )....
Darjana13
26.05.2020 21:44
За единицу измерения информации в теории кодирования принят выберите один ответ: 1 бод 1 байт 1 бит...
AlexeyB1000
08.01.2020 12:21
Пользователь вводит градусные меры двух углов A и B Определите Может ли существовать треугольник с такими углами то есть вывести треугольник существует или треугольник не существует...
Anabella98
29.02.2020 15:30
сделать алгоритм в python Имеются три множества символьного типа y1=[‘a,’b’,’d’,’r’,’m’], y2=[‘r’,’a’,’h’,’d’], y3=[‘a’,’r’]. Сформировать множество, полученное в результате...
Karakatica44
25.02.2022 18:21
У исполнителя Альфа две команды 1) прибавь 2 2) раздели на b (b неизвестное натуральное число; b =2) Известно что программа 11211 переводит число 50 в число 22. Определите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
readln(n);
n:=n mod 7;
if n=0 then writeln(7) else writeln(n);
readln;
end.