Написать программу которая по номеру урока выдаёт сообщение о его названии. Использовать команду case

Question

Информатика

Доминика

5 ноября, 06:19

Написать программу которая по номеру урока выдаёт сообщение о его названии. Использовать команду case

+4

Ответы (1)

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

Галуша · Answer 1

Var

N: integer;

Begin

Write ('Введите номер урока: ') ; ReadLn (N) ;

Case N of

'1':WriteLn ('Математика') ;

'2':WriteLn ('Физика') ;

'3':WriteLn ('Химия') ;

'4':WriteLn ('Геометрия') ;

'5':WriteLn ('География') ;

'6':WriteLn ('Краеведенье') ;

End;

End.