Question

Ребята, помогите, пожалуйста)
1) Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал норму на 10 % от нормы предыдущего дня.Определить через сколько дней его норма превысит 20 км.
2) Винни Пух ходит на дни рождения. На двух первых днях рождениях у Пяточка и Кролика он съел по 100 грамм пищи. На каждом следующем дне рождения Винни Пух съедает столько же пищи, что и на двух предыдущих. Составить таблицу, определяющую сколько кг пищи Винни Пух съест на 15 дне рождения.

Answer 1

1. uses crt;
var k:integer;
a:real;
begin
clrscr;
a:=10;
k:=1;
while a<=20 do
      begin
      a:=a+a*10/100;
      k:=k+1;
      end;
writeln ('Норма превысит 20 км на ',k,' день');
end.
     
2.
uses crt;
var k:integer;
m:array [1..15] of real;
begin
clrscr;
m[1]:=0.1;
m[2]:=0.1;
for k:=3 to 15 do
    begin
    m[k]:=m[k-1]+m[k-2];
    end;
for k:=1 to 15 do
writeln (k:3 ,' день',m[k]:8:1,' кг');
end.

Answer 2

Спасибо огромное!!!))