Дано целое число k (1 ≤ k ≤ 365). Присвоить целочисленной величине n значе- ние 1, 2,...

Question

Дано целое число k (1 ≤ k ≤ 365). Присвоить целочисленной величине n значе- ние 1, 2, ..., 6 или 0 в зависимости от того, на какой день недели (понедельник, вторник, ..., субботу или воскресенье) приходится k-й день года, в котором 1 января: а)понедельник. б)вторник. Язык програмирования : Pascal.

Answer 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.