Добавил:
student_tipo
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:контрольная работа / вар 24 / 3
.txt Program zadanie_3;
Var i: integer;
Begin
Write ('‚ўҐ¤ЁвҐ i');
Readln(i);
Case i of
1: Writeln('22');
2,3,4: Writeln('25');
5,6: Writeln('30');
7,8: Writeln('35');
End;
End.
Var i: integer;
Begin
Write ('‚ўҐ¤ЁвҐ i');
Readln(i);
Case i of
1: Writeln('22');
2,3,4: Writeln('25');
5,6: Writeln('30');
7,8: Writeln('35');
End;
End.