Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
день недели по номеру дня
{Вычисление название дня недели по номеру дня} type week = (mon, tue, wed, thue, fri, sut, sun ); // 1 2 3 3 5 6 7 var day_num: integer; begin readln(day_num); // if day_mum < 1 then wrieln ('Номера дней должны быть больше нуля'); day_num := day_num - 1; if week(day_num mod 7) in [mon..fri] then writeln('День № ', day_num + 1, ' = ', week(day_num mod 7), ' - это рабочий день.') else writeln('День № ', day_num + 1, ' = ', week(day_num mod 7), ' - это выходной день.') end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
test25
Mengubah desimal ke biner
test01
virtuelna ravan-preklapanje krugova
Урок 3 задачи 1, 2 и расширение задачи 2
la moyenne de théo
Vremenska prognoza
1 25 5
AUMENTAR O DISMINUIR EDADES
Урок 3 задача 4
stackse - search stackoverflow differently
Please log in to post a comment.