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

Question

Информатика

Партов

24 января, 06:26

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

+3

Ответы (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