1)В поезде 17 вагонов, 10-17-купейные, остальные-плацкарт.Ввести № вагона.напечатать вид.2)Ввести 2 числа. Напечатать их частное или сообщить, что на 0 делить нельзя
1)В поезде 17 вагонов, 10-17-купейные, остальные-плацкарт.Ввести № вагона.напечатать вид.2)Ввести 2 числа. Напечатать их частное или сообщить, что на 0 делить нельзя
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
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.