Ответы на вопрос:
Var n, a, i: integer; ar: array[0..6]of string = ('воскресенье', 'понедельник', 'вторник', 'среда', 'четверг', 'пятница', 'суббота'); begin readln(n); a : = n mod 7; write(ar[a]); end.
Популярно: Информатика
-
dinbili202.01.2020 20:26
-
ulpashkova21.07.2020 22:45
-
бобгороха03.05.2021 17:43
-
rndmymail10.09.2022 14:34
-
BTSExo124.06.2023 00:08
-
anaw8105.07.2022 15:44
-
kik67801.04.2020 07:36
-
dvofgisf24.01.2021 17:54
-
boda1313.03.2022 07:48
-
olya1234567890r30.04.2021 20:13