Людина поклала у банк певну суму грошей. Щорічно банк додає до суми А наперед визначений відсоток від суми, що зберігається на рахунку після попереднього року. Яка сума буде на рахунку через N років?(програмування лазарус)

Объяснение:

1

#include <iostream>

using namespace std;

int main()

{

   int a, b;

   cin>>a>>b;

   int p = (a + b) * 2;

   int pl = a * b;

   cout<<"Perimetr: "<<p;

   cout<<"Ploshad: "<<pl;

}

2

#include <iostream>

using namespace std;

int main()

{

   int l;

   float r, d;

   cin>>l;

   r = l / 2 / 3.14;

   d = r * 2;

   cout<<"Radius: "<<r;

   cout<<"Diametr: "<<d;

}

3

#include <iostream>

using namespace std;

void Reverse(char *numb)

{

   char help;

   int N = 3;

   for (int i = 0; i < N / 2; i++)

   {

       help = numb[i];

       numb[i] = numb[N - 1 - i];

       numb[N - 1 - i] = help;

   }

   for (int i = 0; i < N; i++)

       cout << numb[i];

}

int main(int argc, char const *argv[])

{

  const int N = 3;

   char numb[N];

   cin >> numb;

   Reverse(numb);

}  

const N = 10;  

var a, i, count, z: integer; s:string;  

suc: array[1..N] of integer;  

begin

 Randomize();

 count := 0;  

 z := 1;

 for i := 1 to N do begin

   a := random(10, 50);

   Str(a, s); if s[2] = '4' then begin count += 1; suc[z] := a; z += 1; end;

 end;

 if count > 0 then begin for i := 1 to z-1 do begin writeln('Выиграшное число: ', suc[i]); end;  

 Writeln('Всего выиграшных билетов: ', count, ' из ', N); end  

 else Writeln('Нет ни одного выиграшного билета');

end.

Объяснение: