Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
S1nneR67
29.09.2022 12:50 •
Информатика
Дано целое число k(1< =k< =365).определить каким днем недели (понедельником ) является k-ый день невисокосного года ,в котором 1 января -понедельник
Показать ответ
Ответ:
ange4
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 оценок)
Популярные вопросы: Информатика
Diana20006100500
13.03.2020 01:41
Люди добрые, ответьте...
klimenkol21
16.09.2020 21:25
Каждая буква русского алфавита закодирована трёхзначным десятичным числом, причём буква А кодируется как 192, а код каждой последующей буквы на 1 больше кода предыдущей буквы....
серик26
29.05.2020 03:04
Найти корни (в1,в2) квадратного урав-ия. Написать программу на языке Паскаль....
влад2002ffffffff
23.05.2020 11:53
С таблицей истинности...
shovkoplyas123456
02.07.2021 14:53
Делать только номер 13 и все по братски...
coco171
08.12.2022 22:20
Даны натурально число n, целые числа a, . если в последовательности есть хотя бы один член, равный а, то получить сумму всех членов, следующим за первых таким членом; в противном...
dani61
22.07.2021 06:36
Как пишется слово долина с суффиксом н или нн...
6473089
22.07.2021 06:36
Звуко буквенный разбор слова спать....
Semechko228
22.07.2021 06:36
Спрячь мягкий знак в середину слова день...
сашмяу
22.07.2021 06:36
Напишите своему товарищу письмо об одном из удачно проведенных дней в семье...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.