Дано целое число k (1 ≤ k ≤ 365). присвоить целочисленной величине n значе- ние 1, 2, 6 или 0 в зависимости от того, на какой день недели (понедельник, вторник, субботу или воскресенье) приходится k-й день года, в котором 1 января: а)понедельник. б)вторник. язык програмирования : pascal.
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.