В месяце апреле 30 дней. 1 апреля- понедельник, 2 апреля- вторник,..... Написать программу, в которой по введеному с клавиатуры дню месяца(например, 15 или 18) вы должны определить какой это день недели. Решить в паскале.

Предыдущий
вопрос Следующий
вопрос

program DayOfWeek;
var
day, result: integer;
begin
writeln('Введите число от 1 до 30:');
readln(day);
result := (day + 1) mod 7;
case result of
1: writeln('Понедельник');
2: writeln('Вторник');
3: writeln('Среда');
4: writeln('Четверг');
5: writeln('Пятница');
6: writeln('Суббота');
0: writeln('Воскресенье');
end;
end.

Программа определяет день недели по введенному дню месяца.