Var
i, sum, j: integer;
begin
j:=1;
sum:=0;
WHILE j<15 DO
begin
sum:=sum+(j*j*j);
j:=j+2;
end;
write(sum);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.