Составте программу на турбо паскаль назвать ее дни недели судь программы заключается в том что программа запрашивает у пользователя число от 1 до 7 и в зависимости от того какое число получается выводит дни недели

Question

Информатика

Евдокиюшка

24 августа, 04:28

Составте программу на турбо паскаль назвать ее дни недели судь программы заключается в том что программа запрашивает у пользователя число от 1 до 7 и в зависимости от того какое число получается выводит дни недели

+3

Ответы (1)

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

Алиса · Answer 1

Program n1;

var day: integer;

begin

write ('введите день недели: ') ;

readln (day) ;

case day of

1: write ('понедельник ') ;

2: write ('вторник ') ;

3: write ('среда ') ;

4: write ('четверг') ;

5: write ('пятница ') ;

6: write ('суббота ') ;

7: write ('воскресение ')

else write ('ошибка') ;

end;

end.