Напишите программу нахождения дня недели по номеру дня в ноябре текущего года в паскаль (60 баллов)
Ответы
Ответ дал:
0
var
d:integer;
begin
//Ноябрь 2021г.
write('Введите число(1..30): '); readln(d);
case d mod 7 of
1: write('Пн');
2: write('Вт');
3: write('Ср');
4: write('Чт');
5: write('Пт');
6: write('Сб');
else write('Вс')
end;
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад