Задать вопрос
16 февраля, 20:39

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

+2
Ответы (1)
  1. 16 февраля, 22:08
    0
    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 Рейсов нужно совершить нужно совершить.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Написать программу в паскале Автобус провозит 50 пассажиров. Из них 10 едут до первой станции, 20 - до второй, а остальные до конечной. ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы