Создайте программу, выводящую ** экран первые 55 элементов последовательности 1 3 5 7 9...

Question

Создайте программу, выводящую на экран первые 55 элементов последовательности 1 3 5 7 9 11 13 15 17 ….

Answer 1

Var
  i, n: integer;

begin
  i := 1;
  n := 1;
  while i <= 55 do <br>  begin
    write(n, ' ');
    n := 2 * i + 1;
    i := i + 1;
  end;
end.

Answer 2

// PascalABC.NET 3.2, сборка 1427 от 24.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
  SeqGen(55,n->2*n+1).Println
end.

Результат
1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 107 109

Comments

там нужен цикл While do begin

---

Это я сейчас уточнила потому,что мы такой вид как ты написал не проходили!

---

Эмм....