Помогите пожалуйста!сформируйте и выведите ** экран массив из девяти элементов, каждые...

Question

Помогите пожалуйста!
сформируйте и выведите на экран массив из девяти элементов, каждые три последомательных элемента которого составлены по следующему правилу. 1й равен квадрату текущего индекса, увеличенному на 5, 2й равен целой части квадратного корня из предыдущего элемента 3й равен целой части от деления двух предыдущих элементов

Answer 1

// PascalABC.NET 3.2

begin
  var a:array[1..9] of integer;
  var i:=1;
  while i<=7 do begin<br>    a[i]:=i*i+5;
    a[i+1]:=Trunc(sqrt(a[i]));
    a[i+2]:=a[i] div a[i+1];
    i:=i+3
    end;
  for var j:=1 to 9 do Write(a[j],' ');
  Writeln
end.

Результат
6 2 3 21 4 5 54 7 7

Comments

Скажите пожалуйста, а почему while i<=7 а не 9? и можно ли как то обойтись без Trunc?

---

Большое спасибо!