Сколько лет нужно хранить N долларов в банке под Р% годовых, чтобы стать миллионером? — Pascal(Паскаль)

{   Сколько лет нужно хранить N долларов в банке под Р% годовых,
    чтобы стать миллионером?
    ╔════════════════════╤══════════╤══════════╤════════╤════════╗
    ║                    │   1      │    2     │   3    │  4     ║
    ╠════════════════════╪══════════╪══════════╪════════╪════════╣
    ║ Начальная сумма $  │  10      │    100   │  1000  │ 20 000 ║
    ╟────────────────────┼──────────┼──────────┼────────┼────────╢
    ║ Годовой процент    │   5      │     7    │   10   │  15    ║
    ╟────────────────────┼──────────┼──────────┼────────┼────────╢
    ║ Срок хранения      │  237     │    138   │  74    │  29    ║
    ╚════════════════════╧══════════╧══════════╩════════╧════════╝


 }
   

program 5;
uses crt;
var
  crok : Word;
  i, god, sum, proz : Real;
begin
ClrScr;
     Write('Кол-во зелени: ');
     ReadLn(sum);
     Write('Процент: ');
     ReadLn(proz);
     crok := 0;
      repeat
       i := (sum / 100) * proz;
       sum := sum + i;
       Inc(crok);
      until sum >= 1000000;
     WriteLn('Срок: ', crok, ' лет');
     WriteLn;
     Write('Press Enter');
     ReadLn

end.

Leave a Comment

88 + = 90