Регистрация
kholov03
28.05.2021 18:03
Информатика
Есть ответ 👍

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

279
473
Посмотреть ответы 2

Ответы на вопрос:

MARI5368334
MARI5368334
4,6(67 оценок)

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

евген115
евген115
4,8(12 оценок)
Var a: longint; begin readln(a); if a mod 3=0 then writeln('yes') else writeln('no'); end.

Популярно: Информатика