Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
день недели по номеру дня
{Вычисление название дня недели по номеру дня} 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
Pasha
Unicorn
bai1
Opdracht_2
sp2014e4
qqqq3
ProcedureTest1
RENAN COSTA CARLOS DA CUNHA 600623343
AreaTriangulo.pas
Mengubah biner ke desimal