1 час понабится чтобы 1 рабочий покрасил забар
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
1) 400 * 32 = 12 800 бит = 1 600 байт
Ответ: 1 600 байт
2)5 * 3 = 15 дюймов - всё изображение
300 * 15 = 4 500 точек - всё изображение
4 500 * 16 = 72 000 бит = 9 000 байт
Ответ: 9 000 байт
ти на английском написал паска убири л и все будет правильно
Program n1;
var a,b: integer;
begin
readln(a,b);
writeln(a*b);
end.