profile
Опубликовано 5 лет назад по предмету Информатика от kei99

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

  1. Ответ
    Ответ дан omelaviscum

    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.