Program train;
var
x, y, col: integer;
begin
writeln('введите вместимость вагона, тонн ');
readln(x);
writeln('введите количество зерна для перевозки, тонн');
readln(y);
col:=y div x;
if (x*col)<y then
Inc(col);
writeln('количество требуемых вагонов ', col);
end.
Тест
Введите вместимость вагона, тонн 3
Введите количество зерна для перевозки, тонн 10
Количество требуемых вагонов 4
Var a, i: integer;
begin
readln(a);
for i:=2 to a do
if (a mod i = 0) and (i mod 2 = 0) then writeln(i);
end.
Вскипетить воду
положить. или. налить. заварку
залить. кепитком.
по желанию. добавить. сахар