Мыположилив банкSрублей. За годмыполучим P% Используя цикл с условием определить за какой срок сумма вложенных денег увеличится в два раза?

1 Январь 0001



 



Мыположилив банкSрублей. За годмыполучим P% Используя цикл с условием определить за какой срок сумма вложенных денег увеличится в два раза?

  • program zadacha_bank;
    uses crt;
    var s,p,i:integer;
           x:real;
    begin
    clrscr;
    readln(s);
    readln(p);
    x:=s;
    i:=0;
    While xx:=x+(x/100*i);
    i:=i+1;
    end;
    writeln(i);
    end.

  • Program sweta_bank;
    uses crt;
    var s,p,i:integer;
       x:real;
    begin
      write(‘Введите начальную сумму вклада ‘); readln(s);
      write(‘Введите %-ную ставку ‘); readln(p);
      x:=s;
      i:=0;
      while x    x:=x+(x/100*i*(p/12));
        i:=i+1;
      writeln(x);
      end;
      writeln(‘При условии ежемесячного начисления процентов по вкладу’);
    writeln(‘вклад удвоится через ‘,i div 12,’ лет и ‘,i mod 12,’ месяцев и составит ‘,x,’ рублей’);
    end.









Информатика

Комментарии закрыты.