Паскаль Дано кол-во детей и вместимость автобуса. Сколько нужно автобусов Нужно написать Что то наподобие "uses crt, begin" желательно пошагово
Паскаль
Дано кол-во детей и вместимость автобуса. Сколько нужно автобусов
Нужно написать Что то наподобие "uses crt, begin"
желательно пошагово
Гость
Ответ(ы) на вопрос:
Гостьvar a,b:integer;
begin
writeln('kolicestvo detei=');
readln(a);
writeln('vmestimosti avtobusa=');
readln(b);
writeln('nujno ',(a div b)+1,'avtobusov');
readln;
end.
Гость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.
Не нашли ответ?
Похожие вопросы