1)В поезде 17 вагонов, 10-17-купейные, остальные-плацкарт.Ввести № вагона.напечатать вид.2)Ввести 2 числа. Напечатать их частное или сообщить, что на 0 делить нельзя

Предыдущий
вопрос Следующий
вопрос

1) Var

A: integer;

Begin

Read (a);

Case of a

1-10: writeln ('плацкарт');

10-17: writeln ('купе');

End;

End.

2) var a, b: real;

Begin

Read (a, b);

If b=0 then write ('на ноль делить нельзя') else write (a/b);

End.