Винни-Пух съел у Кролика в 1 день 100 г. варенья, во-второй ещё 100 г., в 3-й и все последующие дни он съедал столько, сколько за два предыдущих дня вместе взятых. 1) Сколько килограмм пиши он съест на 15 день рождения2 На какой день рождения. суммарный объем съеденной пиши привысит тонну.НАПИШИТЕ ПРОГРАММУ НА PASCALОЧЕНЬ

program dr_vinii_i_varenie;

var

d1,d2,d3,s:int64;

n:integer;

begin

// первая часть

d1:=100;

d2:=100;

s:=d1+d2;

n:=2;

while n<=15 do begin

d3:=d1+d2;

s:=s+d3;

d1:=d2;

d2:=d3;

n:=n+1;

end;

writeln(s div 1000);

// вторая часть

while s<=1000000 do begin

d3:=d1+d2;

s:=s+d3;

d1:=d2;

d2:=d3;

n:=n+1;

end;

writeln(n);

end.

1)

#include <iostream>

using namespace std;

int main()

{

int g, k, n=64;

for (g=0; g<=n; g++)

{

for (k=0; k<=n/2; k++)

{

if (2*g + 4*k == n)

{

printf ("Gycu - %d. \nKpoluk - %d.\n\n", g, k);

}

}

}

return 0;

}

2)#include <iostream>

using namespace std;

long double fact(int N)

{

if(N < 0)

return N;

if (N == 0)

return 1;

else

return N * fact(N - 1);

}

int main()

{

int N, M;

setlocale(0,"");

cout << "N=";

cin >> N;

cout<<"M=";

cin>>M;

cout<<"N!-M!=" << fact(N)-fact(M) << endl << endl;

return 0;

}

var

 a: array [1..5,1..6] of integer;

 i,j,sum,ip,jp:integer;

 flag:boolean;

begin

 flag:=false;

 sum:=0;

 for i:=1 to 5 do

   begin

     for j:= 1 to 6 do

       begin

         a[i,j]:=random(31)-10;

         write(a[i,j]:4);

         if a[i,j] mod 2 = 0 then

           sum:=sum+a[i,j];

         if not flag then

           if abs(a[i,j] mod 2) = 1 then

             begin

               flag:=true;

               ip:=i;

               jp:=j;

             end;

       end;

     writeln;

   end;

 a[ip,jp]:=sum;

 writeln;

 for i:=1 to 5 do

   begin

     for j:=1 to 6 do

       write(a[i,j]:4);

     writeln;

   end;

end.