Паскаль Дано кол-во детей и вместимость автобуса. Сколько нужно автобусов Нужно написать...

Question

Паскаль
Дано кол-во детей и вместимость автобуса. Сколько нужно автобусов
Нужно написать Что то наподобие "uses crt, begin"
желательно пошагово

Comments

Турбо Паскаль?

---

да, в Турбо

---

я не была на этой теме, поэтому могу ошибаться

Answer 1

Var a,b:integer;
begin
writeln('kolicestvo detei=');
readln(a);
writeln('vmestimosti avtobusa=');
readln(b);
writeln('nujno ',(a div b)+1,'avtobusov');
readln;
end.

Comments

=)) То есть, если A нацело на B не разделится, оставшиеся дети пешком пойдут?=)))

---

Теперь, если разделится, то водитель без работы остаться может=D

Answer 2

Uses CRT;

Var
A,B:integer;

Begin
Write('KOL-BO DETEi = ');ReadLn(A);
Write('BMECTiMOCTb = ');ReadLn(B);
if A mod B = 0 then WriteLn(A div B)
else WriteLn((A div B)+1);

ReadKey
End.