16 штук. Куб равен со всех сторон в связи с этим нам надо знать ширину и высоту, 4 на 4 см, это 4 и 4 кубика. В связи с этим 16 кубиков.
Один пиксель 8 бит
Всего пикселей 10*300=3000
3000*8 бит весит
3000*8/8 байт весит = 3000
Ответ 3000 байт
var
n, i: Integer;
s: string;
begin
Write ('Введите натуральное число, больше 9: ');
ReadLn (n);
if n <= 9 then begin
Writeln ('Ошибка ввода!');
Exit;
end;
s := IntToStr (n);
if Length (s) mod 2 <> 0 then begin // проверка на четность
i := Length (s) div 2 + 1; // вычисление позиции центральной цифры
Delete (s, i, 1); // удаление центральной цифры
Writeln ('Результат: ' + s);
end else
Writeln ('Число цифр в числе четно.');
end;
Var a, b : real;
begin
readln(a);
readln(b);
if a>b then writeLn(a,b)
else writeln(b,a);
readln;
end.
Попробуй так