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

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

Решение:

program Integer26;
var
  K,D: Integer;
begin
  Write('Введите день этого года: ');
  Readln(K);
  D:=(K mod 7) + 1;
  Writeln('День недели : ',D);
end.

program Integer26;

var

K,D: Integer;

begin

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

Readln(K);

D:=(K mod 7) + 1;

Writeln('День недели : ',D);

end.

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

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

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

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