Войти Регистрация Спроси ai-bota

Обозначим дни недели числами от 1 (понедельник) до 7 (воскресенье) соответственно.известно, что первое число текущего месяца поподает на понедельник. на вход программе подается целое число 1

Показать ответ

Ответ:

Adele04

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 оценок)

Популярные вопросы: Информатика

svv190204

23.08.2020 05:13

№1Дан фрагмент электронной таблицы и диаграмма:Какое число должно быть записано в ячейке D1, чтобы построенная после выполнения вычислений круговая диаграмма по значениям диапазона...

elay0205

18.02.2022 01:47

(на языке с++ ) дан номер года (положительное целое число). определить количество дней в этом году, учитывая, что обычный год насчитывает 365 дней, а високосный — 366 дней. високосным...

Veratandashvili

18.02.2022 01:47

Файл размером 4 кбайт передается через некоторое соединение в течение 40 секунд определите размер файла в кб который можно передать через это соединение 12 секунд...

Obzzzi

18.02.2022 01:47

Как задать значение элементов массива без использования процедуры ввода...

ABILAIKhan

16.12.2021 14:43

Разработайте программу, которая создает массив случайных чисел от -50 до 50, а затем предлагает пользователю на выбор просмотреть или только положительные или только отрицательные...

Simpson011

04.01.2023 11:26

1. как записывается десятичное число 7 в двоичной системе счисления? а) 111; b) 110; c) 100 2. какие расширения имеют исполняемые файлы а) txt, com; b) com, exe; c) sys, com 3....

AronP

04.01.2023 11:26

Синформатикой. 1.к какому виду моделирования относится построение макета корабля a. структурное b. функциональное c. натурное d. имитационное 2.какие программы относятся к прикладным...

nick121201

24.03.2022 04:23

Скорость передачи данных через wap-соединение равна 65536 бит/с. через данное соединение файл размером 576 кбайт. определи время передачи файла в секундах....

plesovskih

24.03.2022 04:23

Укого с информатикой хорошо? 9 класс написать программу для нахождения минимального элемента массива а(21). написать программу, находящую номер первого и последнего отрицательного...

nastenadanil2698

24.03.2022 04:23

Игра «finecraft» требует для установки на жёсткий диск 6 гбайт свободного места. на жёстком диске сейчас 900 мбайт свободного места. а) какое пространство необходимо освободить...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку