Написать программу выбора дня недели, не используя оператора выбора case a of. Каждый день пронумерован от 1 до 7.

Question

Информатика

Петяша

5 декабря, 02:34

Написать программу выбора дня недели, не используя оператора выбора case a of. Каждый день пронумерован от 1 до 7.

+5

Ответы (1)

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

Торя · Answer 1

Var x:integer;

beginread (x) ;

if x = 1 then

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

if x = 2 thenw

riteln ('Вторник') ;

if x = 3 then

writeln ('Среда') ;

if x = 4 then

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

if x = 5 then

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

if x = 6 then

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

if x = 7 then

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

end.