Дан порядковый номер дня года( ОТСЧЕТ идет с 1-ого января) Требуется вывести номер дня недели этого дня если 1 января-понедельник. (Запрещено использование команды If) Формат входных данных вводится номер дня года-целое число k...
Дан порядковый номер дня года( ОТСЧЕТ идет с 1-ого января) Требуется вывести номер дня недели этого дня если 1 января-понедельник. (Запрещено использование команды If)
Формат входных данных
вводится номер дня года-целое число k(1<или равно k < или равно 365)
Ответ(ы) на вопрос:
Гость
var n, a, i: integer;
ar: array[0..6]of string = ('воскресенье', 'понедельник', 'вторник', 'среда', 'четверг', 'пятница', 'суббота');
begin
readln(n);
a := n mod 7;
write(ar[a]);
end.
Не нашли ответ?
Похожие вопросы