Задача на турбо паскаль
составить таблицу кубов натуральных чисел от 1 до 15 Придусмотреть начало заголовка Использовать оператор цикла с параметром
Ответы
Ответ дал:
0
program gt;
var i:integer;
begin
writeln('Заголовка');
i:=1;
while i<=15 do
begin
writeln(i*i*i);
i:=i+1;
end;
end.
var i:integer;
begin
writeln('Заголовка');
i:=1;
while i<=15 do
begin
writeln(i*i*i);
i:=i+1;
end;
end.
Ответ дал:
0
можно просто написать for i:=1 to 15 do а потом writeln(i*i*i);
Вас заинтересует
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад