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

ние 1, 2, ..., 6 или 0 в зависимости от того, на какой день недели (понедельник,

вторник, ..., субботу или воскресенье) приходится k-й день года, в котором

1 января:

понедельник.

Язык програмирования : Pascal.

Question

Информатика

Вераня

20 июля, 07:48

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

ние 1, 2, ..., 6 или 0 в зависимости от того, на какой день недели (понедельник,

вторник, ..., субботу или воскресенье) приходится k-й день года, в котором

1 января:

понедельник.

Язык програмирования : Pascal.

+5

Ответы (1)

Знаешь ответ?

Минаша · Answer 1

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.