Задание:
Составить программу, заполняющую массив из 10 элементов, с числовой последовательностью 2,3,5,9,17…
Решение:
Написано на Pascal: Program ArraySequence; Var a: Array [1… 10] Of Integer; i: Integer; Begina[0]: =2; For i: =1 To 9 Doa[i]: =2*a[i-1] — 1; For i: =0 To 9 DoWrite (a[i], '); ReadLn; End.
Знаете другой ответ?