Решаем задачи Абрамян на Паскале. Integer 24

Integer24. Дни недели пронумерованы следующим образом: 0 — воскресенье, 1 — понедельник, 2 — вторник, …, 6 — суббота. Дано целое число $$K$$, лежащее в диапазоне 1–365. Определить номер дня недели для $$K$$-го дня года, если известно, что в этом году 1 января было понедельником.

Решение:

program Integer24;
var
  K,D: Integer;
begin
  Write('Введите день этого года: ');
  Readln(K);
  D:=K mod 7;
  Writeln('Номер деня недели : ',D);
end.

program Integer24;

var

K,D: Integer;

begin

Write('Введите день этого года: ');

Readln(K);

D:=K mod 7;

Writeln('Номер деня недели : ',D);

end.

Другие задачи из раздела Integer можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Integer 24

Комментарии:

Добавить комментарий Отменить ответ