Страницы 177-181 параграф 4 4 вопрос / задание 6, ГДЗ по информатике за 8 класс к учебнику Босовой просвещение

Следующие дни недели января после 31 декабря:

1 - вторник; 2 - среда; 3 - четверг; 4 - пятница; 5 - суббота; 6 - воскресенье; 7 - понедельник.

Следующие числа повторяют этот же цикл.

chislo:=chislo mod 7

если chislo = 3 то y:=’четверг’

если chislo = 4 то y:=’пятница’

если chislo = 5 то y:=’суббота’

если chislo = 6 то y:=’воскресенье’

если chislo = 0 то y:=’понедельник’

если chislo = 1 то y:=’вторник’

если chislo = 2 то y:=’среда’

program Z_6_4;

var

  x, c: integer;

begin

  write('Введи число января > ');

  readln(x);

  c := x mod 7;

  case c of

    0: writeln('ПОНЕДЕЛЬНИК');

    1: writeln('ВТОРНИК');

    2: writeln('СРЕДА');

    3: writeln('ЧЕТВЕРГ');

    4: writeln('ПЯТНИЦА');

    5: writeln('СУББОТА');

    6: writeln('ВОСКРЕСЕНЬЕ');

  end;

end.