Написать программу, позволяющую по номеру недели (от1-7) выдавать в качестве результата количество уроков в группе в соответствуйший день

Question

Информатика

Иринарх

16 января, 07:22

Написать программу, позволяющую по номеру недели (от1-7) выдавать в качестве результата количество уроков в группе в соответствуйший день

+3

Ответы (1)

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

Луканя · Answer 1

Ток на Паскале могу

Program pr;

uses crt;

Var x:integer;

Begin

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

readln (x) ;

case x of

1:Writeln ('5 пар') ;

2,3:Writeln ('4 пары') ;

4:Writeln ('3 пары') ;

5:Writeln ('2 пары') ;

6,7:Writeln ('пар нет') ;

end;

readln;

end.