Дано целое число в диапазоне 1–7. Вывести строку — название дня недели, соответствующее данному числу

Категория: Delphi/Pascal
2011-12-12 23:40:02

1 — «понедельник», 2 — «втор- ник» и т. д.

code: #pascal
Program Case1;
Var
x:Integer;
Begin
ReadLn(x); 
Case x Of
1:WriteLn('Понедельник');
2:WriteLn('Вторник');
3:WriteLn('Среда');
4:WriteLn('Четверг');
5:WriteLn('Пятница');
6:WriteLn('Суббота');
7:WriteLn('Воскресенье');
End;
End.

автор: Sklyarov Sergej a.k.a. S9

Поделиться:

Похожие статьи:

теги: студенты, консольное приложение, строки, case, целое число