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

Question

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

Answer 1

program week;

var k,n: integer;

begin

   writeln ('Input k (1<=k<=365) : ');</span>

   readln (k);

   if (k mod 7=0) then n:=0

   else n:=k mod 7;

   writeln ('n= ',n);

end.