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

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

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

1 января:

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

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

Question

Информатика

Варварка

23 сентября, 08:04

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

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

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

1 января:

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

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

+4

Ответы (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.