Определить, сколько килограммов пищи съест Вини Пух на пятнадцатом дне рождения - Turbo Pascal

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

Помогите с решением: На каждом следующем дне рождения Вини Пух съедает столько же пищи, что и на двух предыдущих. На двух первых днях рождения у Пятачка и Кролика он съел по 100 грамм пищи. Сколько килограммов пищи съест Вини Пух на пятнадцатом дне рождения?(нигде не нашел понятного решения)

Код к задаче: «Определить, сколько килограммов пищи съест Вини Пух на пятнадцатом дне рождения - Turbo Pascal»

textual
uses crt;
const n = 15;
var a:array[1..n] of real;
    i: integer;
begin
clrscr;
a[1] := 0.1;
a[2] := 0.1;
writeln(' 1= 0.1 kg');
writeln(' 2= 0.1 kg');
for i := 3 to n do
 begin
  a[i]:=a[i-1]+a[i-2];
  writeln(i:2,'=',a[i]:4:1, ' kg');
 end;
readln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 4.083 из 5


СДЕЛАЙТЕ РЕПОСТ