• Предмет: Информатика
  • Автор: AlekseyAnonimus0346
  • Вопрос задан 8 лет назад

30 баллов. PascalABC.NET

Всем известно, что в неделе 7 дней: понедельник (Monday), вторник (Tuesday), среда (Wednesday), четверг (Thursday), пятница (Friday), суббота (Saturday) и воскресенье (Sunday).
По номеру дня недели следует определить англоязычный вариант его записи.

Входные данные

Входной файл INPUT.TXT содержит целое число N – номер дня недели (1 ≤ N ≤ 7).

Выходные данные

В выходной файл OUTPUT.TXT выведите ответ на задачу с заглавной буквы.

Ответы

Ответ дал: daniilzhulanov
0

Привет!


var

x:integer;

begin

readln(x);

case x of

1:writeln('Monday');

2:writeln('Tuesday');

3:writeln('Wednesday');

4:writeln('Thursday');

5:writeln('Friday');

6:writeln('Saturday');

7:writeln('Sunday');

end;

end.

Приложения:
Вас заинтересует