Деньки недели пронумерованы последующим образом 1-пн,
Дни недели пронумерованы следующим образом 1-понедельник, 2-вторник,3-среда,7-воскресенье.Дано целое число лежащее в спектре от 1 до 365. Найти номер дня недели к-го денька года,если знаменито, что 1-ое января было вторником.
Задать свой вопрос1 ответ
Полинка Молаева
В неделе семь дней, поэтому решение производится на базе нахождения остатка целочисленного деления от номера дня на 7. Такой остаток находится в границах от 0 до 6, а для нашей нумерации нужны значения от 1 до 7, потому приобретенный остаток будем наращивать на единицу. Если 1 января вторник, то есть день недели с номером 2, то первым понедельником будет 7 января, вторым 14 января и т.д. 1 января (k=1) при дробленьи на 7 даст в остатке 1 и при сдвиге остатка на 1 (см. выше), получим 2 (вторник). 7 января даст остаток 0 и после сдвига получим 1 (понедельник), что и требовалось.
1. Современное краткое, действенное, но требующее определенных познаний решение
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программка не работает, обновите версию!
begin
var d:='Пн Вторник Среда Четверг Пятница Суббота Воскресенье'.ToWords;
Writeln(d[ReadInteger('Введите номер денька') mod 7])
end.
Образцы
Введите номер дня 215
Суббота
Введите номер денька 14
Пн
2. Более недалёкое к приведенному выше методу решение
begin
var n:=ReadInteger('Введите номер денька');
n:=n mod 7+1;
case n of
0:Writeln('Воскресенье');
1:Writeln('Пн');
2:Writeln('Вторник');
3:Writeln('Среда');
4:Writeln('Четверг');
5:Writeln('Пятница');
6:Writeln('Суббота')
end
end.
3. Типовое школьное решение
var
n:integer;
begin
Write('Введите номер дня');
Read(n);
n:=n mod 7+1;
case n of
0:Writeln('Воскресенье');
1:Writeln('Пн');
2:Writeln('Вторник');
3:Writeln('Среда');
4:Writeln('Четверг');
5:Writeln('Пятница');
6:Writeln('Суббота')
end
end.
1. Современное краткое, действенное, но требующее определенных познаний решение
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программка не работает, обновите версию!
begin
var d:='Пн Вторник Среда Четверг Пятница Суббота Воскресенье'.ToWords;
Writeln(d[ReadInteger('Введите номер денька') mod 7])
end.
Образцы
Введите номер дня 215
Суббота
Введите номер денька 14
Пн
2. Более недалёкое к приведенному выше методу решение
begin
var n:=ReadInteger('Введите номер денька');
n:=n mod 7+1;
case n of
0:Writeln('Воскресенье');
1:Writeln('Пн');
2:Writeln('Вторник');
3:Writeln('Среда');
4:Writeln('Четверг');
5:Writeln('Пятница');
6:Writeln('Суббота')
end
end.
3. Типовое школьное решение
var
n:integer;
begin
Write('Введите номер дня');
Read(n);
n:=n mod 7+1;
case n of
0:Writeln('Воскресенье');
1:Writeln('Пн');
2:Writeln('Вторник');
3:Writeln('Среда');
4:Writeln('Четверг');
5:Writeln('Пятница');
6:Writeln('Суббота')
end
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов