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

var
 k:integer;
begin
 writeln('Vvedite den');
 readln(k);
 case k mod 7 of
  0:write('воскресенье');
  1:write('понедельник');
  2:write('вторник');
  3:write('среда');
  4:write('четверг');
  5:write('пятница');
  6:write('суббота');
 end;
end.

Результат работы программы

Похожие записи/страницы:

Leave a Comment

− 2 = 1