Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
EminRoth
15.02.2023 23:53 •
Информатика
Дано целое число k(1< =k< =365).определить каким днем недели (понедельником ) является k-ый день невисокосного года ,в котором 1 января -понедельник
Показать ответ
Ответ:
Хей151
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 оценок)
Популярные вопросы: Информатика
FSoxGy
31.12.2020 22:03
, нужно написать код для вот этих клеточек, все эти зеленые клетки должны быть закрашены зеленым, а сам синий круг должен оказаться в конце в желтом кругу. слева представлен...
a1b2c5612z
28.07.2021 11:28
между населёнными пунктами А В С Д Е построены дороги протяжённость которых (в километрах) приведена в таблице. Определите длину кратчайшего пути между пунктами В и...
вовчик83
04.07.2022 11:15
Напишите программу, которая выведет номера всех лунок в гольфе, в которые нужно попасть, чтобы выиграть битву. Определяется это так. Нужно найти самую короткую из двух...
damiroid
16.06.2021 10:11
Как много смыслов в простом пожелании! Напишите программу, которая найдет все строки, в которых есть что-то доброе (достаточно проверить наличие подстроки добр), а...
Dirol3434
05.11.2020 01:29
Перевести из 2-ой в 10-ую 2 числа 111000110 100000000100...
DOSYMZHAN1
19.05.2022 04:38
Определите значение переменной s после выполнения фрагмента алгоритма: на «4» s: =0; m: =6: for i: =3 to m do s: =s+i...
chertan98
27.08.2022 06:00
Создать двумерный массив размерностью 7*5 состоящих из целых чисел в диапазоне от - 10 10 вывести на экран найти максимальный элемент в каждой строке(pascal) ...
zentronys
16.02.2021 13:32
Составь действия алгоритма по порядку и запиши его в трех формах: 1.посолила картофель. 2.бросила картофель в кипяток. 3.зажгла газовую плиту. 4.очистила картофель....
Карычч
08.09.2022 06:27
Необходимо для числа 123456 найти сумму цифр числа, отнять от данного числа полученную сумму, заменить данное число полученным значением и так повторять до тех пор,...
всмпасы
30.11.2022 00:29
Самостоятельная работа по теме: «Электростатика» Вариант 1 1. Два одинаковых электрометра А и В имеют электрические заряды:qА=+20 Кл и qВ=+60 Кл соответственно. Чему...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.