Предмет: Информатика,
автор: kei99
Дано целое число k (1 ≤ k ≤ 365). Присвоить целочисленной величине n значе-
ние 1, 2, ..., 6 или 0 в зависимости от того, на какой день недели (понедельник,
вторник, ..., субботу или воскресенье) приходится k-й день года, в котором
1 января:
а)понедельник.
б)вторник.
Язык програмирования : Pascal.
Ответы
Автор ответа:
5
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.
Интересные вопросы
Предмет: Физика,
автор: n8861754
Предмет: Английский язык,
автор: deathnote567567
Предмет: Информатика,
автор: gvvvvvb375
Предмет: Математика,
автор: макс1456
Предмет: Литература,
автор: юрий75