Задание 6 Параграф 4.4 ГДЗ Босова 8 класс 2023 (Информатика)

Задача

Следующие дни недели января после 31 декабря:
1 – вторник; 2 – среда; 3 – четверг; 4 – пятница; 5 – суббота; 6 – воскресенье; 7 – понедельник.
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.
Окно вывода
Введи число января > > 5
СУББОТА

Подробный ответ

Номер дня недели для любого числа января можно найти по остатку от деления этого числа на $$7$$. По условию:

$$1 \rightarrow \text{вторник},\ 2 \rightarrow \text{среда},\ 3 \rightarrow \text{четверг},\ 4 \rightarrow \text{пятница},\ 5 \rightarrow \text{суббота},\ 6 \rightarrow \text{воскресенье},\ 7 \rightarrow \text{понедельник}.$$

Значит, если $$x \bmod 7 = 0$$, то это понедельник; если $$1$$ — вторник; если $$2$$ — среда и т. д.

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.