Question

Напишите программу, которая по номеру дня недели выводит его название. При вводе
неверного номера дня недели должно быть выведено сообщение об ошибке.

Answer 1

var a:integer;

begin

writeln('Введите номер недели');

readln (a);

case a of

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

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

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

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

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

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

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

else

writeln('Ошибка');

end;

end.

Answer 2

нужно тогда сделать через case of

Answer 3

сейчас все будет

Answer 4

var a:integer;
begin
writeln('Введите номер недели');
readln (a);
case a of
1:writeln ('Понедельник');
2:writeln ('Вторник');
3:writeln ('Среда');
4:writeln ('Четверг');
5:writeln ('Пятница');
6:writeln ('Суббота');
7:writeln ('Воскреснье');
else
writeln('Ошибка');
end;
end.