Написать программу в паскале Автобус провозит 50 пассажиров. Из них 10 едут до первой станции, 20 - до второй, а остальные до конечной. стоимость билетов до каждой станции соответственно равна a, b, c. Определите сколько рейсов должен делать автобус. чтобы выручка составила К руб?

var a, b, c, k, d, e, g, h : integer;

var f : integer;

begin

writeln ('Введите стоимости билета за проезд до первой, до второй и до конечной станции через пробел : ') ;

readln (a, b, c) ;

writeln ('Введите сколько рублей должна быть конечная выручка : ') ;

readln (k) ;

d : = 10*a;

e : = 20*b;

g : = 20*c;

h : = d+e+g;

f : = h div k;

writeln (f, ' Рейсов нужно совершить нужно совершить.') ;

end.

Лог:

Введите стоимости билета за проезд до первой, до второй и до конечной станции через пробел:

1

1

1

Введите сколько рублей должна быть конечная выручка:

50

1 Рейсов нужно совершить нужно совершить.