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.