Треугольник:
uses graphabc;
begin
line(150,100,200,200);
line(150,100,100,200);
line(100,200,200,200);
<span>end.</span>
<span>v=256000 битс
t= 2 минуты= 120 секунд
S= 256000 * 120 =30720000 бит
Теперь перейдём в байты: 30720000 разделить на 8 = 3840000байт,
а из байтов в килобайты: 3840000 разделить на 1024 = 3750 килобайт </span>
Разделить на секунды а число?????!!!
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
А) после "умножить" в памяти останется только одно число, а для следующей команды "вычесть" их должно быть как минимум два.
Б) для исполнителя не определена инструкция "разделить"
В) после "взять число" не хватает самого числа