Ввести первоначальную сумму вклада, ввести ежегодный - вопрос №8758582 от Brodyga007 10.04.2020 02:25

Question

Информатика: Ввести первоначальную сумму вклада, ввести ежегодный процент, сколько будет денег на счету через 10 лет работа на программе паскаль

Brodyga007 · Answer

Var  f, x: real; //f=ежегодный процент i :integer; //x=первоначальная сумма вклада
begin //Ввод writeln ('первоначальная сумма вклада'); readln (x);    writeln ('ежегодный процент'); readln (f);
//решениеfor i :=1 to n do begin x:=x + (x/100*f); end;
  //вывод writeln ('x = ', x);  end.