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

Question

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

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.