Построить последовательность целых чисел по закону - Pascal

Формулировка задачи:

Построить последовательность целых чисел a1, ..., a30, где a1=1, a2=1, a[i]=a[ i/2 ]+ a[i – 2] (i=3, ..., 30).

Код к задаче: «Построить последовательность целых чисел по закону - Pascal»

textual
const n=30;
var a:array[1..n] of integer;
    i:byte;
begin
writeln('Последовательность A');
for i:=1 to n do
 begin
  if i<3 then a[i]:=1
  else a[i]:=a[i div 2]+a[i-2];
  write(a[i]:4)
 end;
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

15   голосов, оценка 4.333 из 5


СОХРАНИТЬ ССЫЛКУ