Вини-Пух на каждый свой день рождения съедает столько еды, сколько съел на двух предыдущих… на первых двух днях он съел по 100 грамм… нужно узнать сколь грамм он съест на 15й день рождения

Категория: Delphi/Pascal
2012-01-05 23:02:47
code: #pascal
Program PascalGuru;
 
var i:integer;
    a:array[1..15] of integer;
    vsego:integer;
begin
a[1]:=1;
a[2]:=1;
for i:=3 to 15 do a[i]:=a[i-2]+a[i-1];
vsego:=0;
for i:=1 to 15 do vsego:=vsego+a[i];
writeln('Otvet: ',vsego,'00 gramm');
 
readln;
end.
Поделиться:

Похожие статьи:

теги: массив, одномерный массив, студенты