• Вопрос по информатике:

    напишите программу определения количества автобусов для перевозки x пассажиров,если в автобусе n мест

    • Автор:

      finley5
  • program raf105;

    var x,n,a:integer;

    begin

    write('Введите количество пассажиров: ');

    readln(x);

    write('Введите количество мест в 1 автобусе: ');

    readln(n);

    a:= x div n;

    if (x mod n) <> 0

     then a:= a+1;

    writeln('Понадобится ',a,' автоб.');

    end.

    Язык PascalABC

    • Отвечал:

      quincyoahi

    Ответов нет, но ты это испарвиш!