Дано целое число k (1 ≤ k ≤ 365). присвоить целочисленной величине n значе- ние 1, 2, 6 или 0 в зависимости от того, на какой день недели (понедельник, вторник, субботу или воскресенье) приходится k-й день года, в котором 1 января: а)понедельник. б)вторник. язык програмирования : pascal.
niknameoyy
1
01.10.2019 03:50
19
Другие вопросы по теме Информатика
Kotyaty
31.05.2023 14:12
Tahir353
31.05.2023 14:04
lenadanilova77
27.06.2019 08:10
гэлочка
03.09.2019 20:20
VafaMurad
24.06.2019 12:00
vabyn
24.06.2019 12:00
кузя177
16.03.2020 02:54
altynai0504
01.04.2020 10:17
Популярные вопросы
- 1. Write down one job from the opposite page that would be di!icult...
3 - Представьте, что вы находитесь в одном из каких-то мест. Где именно...
3 - Часть 1 Спишите. Вставьте пропущенные буквы, раскройте скобки,...
2 - D/14+2=d+102/14a/b - обыкновенная дробь...
3 - Определите давление, оказываемое остриём жала осы, если она вонзает...
1 - Известно, что два треугольника подобны: ΔWUD∼ΔKLM. Не рисуя треугольники,...
3 - С++ Распределите пробелы Дана строка, содержащая по крайней мере...
3 - 8. Тиск і маніпуляція - це ... * А)звинувачення, що не підтримуєте...
3 - поділи текст на речення.визнач усі члени речення. Насунула чорна...
3 - Морфологический разбор прилагательных.К быстрой ракете, через...
1
A)
program dengoda1;
var k, n:Integer;
begin
ReadLn(k);
n:=(k mod 7);
WriteLn(n)
end.
Б)
program dengoda2;
var k, n:Integer;
begin
ReadLn(k);
n:=(k mod 7)+1;
if (n=7)then
n:=0;
WriteLn(n)
end.