1) 26 символов = по другому 2 в 5 степени (с остатком);
2) 240 * 5 = 1200 бит
Если нужно от 15 до 2 :
Var i:integer
Begin
i:=2
while i<=15 do begin
write(i**3,' ')
end;
end.
P.S. Если нужно от 2 до 15 :
Var a,i:integer
Begin
for i:=2 to 15 do
begin
write(i**3,' ')
end;
end.
Функция Foo() принимает указатели на 2 массива (я так понял, что это нужно по заданию), а там уже вызывается функция, которой передаётся указатель только на 1 массив.
Как меня учили
1 символ=1 байт
ну а дальше количество строк умножить на количество символов в строке и на вес одного символа(у нас 1 байт) и получаем ответ в байтах