Составить программу нахождения дня недели по известной цифре.

Question

Информатика

Ритоша

23 мая, 00:58

Составить программу нахождения дня недели по известной цифре.

+3

Ответы (1)

Знаете ответ на вопрос?

Увар · Answer 1

Program den_nedeli;

var a: integer;

begin

writeln ('Введите цифру дня недели') ;

readln (a) ;

case a of

1: writeln ('Понедельник') ;

2: writeln ('Вторник') ;

3: writeln ('Среда') ;

4: writeln ('Четверг') ;

5: writeln ('Пятница') ;

6: writeln ('Суббота') ;

7: writeln ('Воскресенье') ;

end;

end.