Задача ** турбо паскаль составить таблицу кубов натуральных чисел от 1 до 15...

Question

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

Answer 1

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

Comments

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