Question

СРОЧНО! Составить программу, выводящую на экран кубы натуральных чисел от 10 до 20.

Answer 1

Var i:integer;
begin
for i:=1 to 20 do
if(i>=10) then writeln('Куб числа ',i,' = ',i*i*i)
end.

Answer 2

Uses crt;
begin
for var i:=10 to 20 do
writeln('куб ',i,' = ',sqr(i)*i);
readln();
end.