Вывести название дня недели по его номеру.
Решение:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
program DaysOfTheWeek; var i: byte; begin readln(i); case i of 1: writeln('Monday'); 2: writeln('Tuesday'); 3: writeln('Wednesday'); 4: writeln('Thursday'); 5: writeln('Friday'); 6: writeln('Saturday'); 7: writeln('Sunday') else writeln('This day of the week does not exist!') end end. |
Похожие записи: