Дано целое число k (1 ≤ k ≤ 365). Присвоить целочисленной величине n значе-
ние 1, 2, ..., 6 или 0 в зависимости от того, на какой день недели (понедельник,
вторник, ..., субботу или воскресенье) приходится k-й день года, в котором
1 января:
понедельник.
Язык програмирования : Pascal.
ние 1, 2, ..., 6 или 0 в зависимости от того, на какой день недели (понедельник,
вторник, ..., субботу или воскресенье) приходится k-й день года, в котором
1 января:
понедельник.
Язык програмирования : Pascal.
More Questions From This User See All
Answers & Comments
program week;
var k,n: integer;
begin
writeln ('Input k (1<=k<=365) : ');
readln (k);
if (k mod 7=0) then n:=0
else n:=k mod 7;
writeln ('n= ',n);
end.