Question

Задача на турбо паскаль
составить таблицу кубов натуральных чисел от 1 до 15 Придусмотреть начало заголовка Использовать оператор цикла с параметром

Answer 1

program gt;
var i:integer;
begin
writeln('Заголовка');
i:=1;
while i<=15 do
begin
writeln(i*i*i);
i:=i+1;
end;
end.

Answer 2

можно просто написать for i:=1 to 15 do а потом writeln(i*i*i);