Question

Составить алгоритм и программу вывода на экран кубов всех целых чисел от -5 до 12.Помогите кто нибудь.

Answer 1

Var i,q:integer;
begin
for i:=-5 to 12 do begin
q:=i*i*i;
writeln(q);
end
end.