Напишите программу, которая по номеру дня недели выводит "Рабочий день", если это день с понедельника по пятницу, или "Суббота" или "Воскресенье". Язык Паскаль.

Question

Информатика

Партов

10 апреля, 02:55

Напишите программу, которая по номеру дня недели выводит "Рабочий день", если это день с понедельника по пятницу, или "Суббота" или "Воскресенье". Язык Паскаль.

+5

Ответы (1)

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

Сатия · Answer 1

var day:integer;

begin

readln (day) ;

case day of

1 ... 5: writeln ('Рабочий день') ;

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

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

end;

end.

fpc 3.0.0