Question

Заполни пропуски в программе. Вывод на экран кубов чисел от 13 до 4. var :integer; begin for n:= downto do writeln (n*n*n); readln; end.

Answer 1

var n: integer;  

begin  

for n:= 13 downto 4 do

 writeln(n*n*n);  

end.

Answer 2

Конечный цикл «for» в Pascal должен иметь формат «for <переменная> := <начальное значение> downto <конечное значение> do». Помимо этого, в программе не определена переменная «n», которую можно использовать в цикле. Исправим программу, чтобы она выводила кубы чисел от 13 до 4:

pascalCopy code
var
  n: integer;
begin
  for n := 13 downto 4 do
    writeln(n * n * n);
  readln;
end.

После выполнения этой программы на экран будет выведено:

yamlCopy code
2197
1728
1331
1000
729
512
343
216
125
64
27
8