Кто то положил в банк деньги (программа должна спрашивать у пользователя сумму), под 7%(сложных, т.е. каждый год берётся заново от накопления за предыдущий год), сроком на три года. Программа должна выводить в таблице сколько будет в конце каждого года, и в конце истечения всего срока — Pascal(Паскаль)

program Project2;

var
  money, sum: real;
  persent, year, i: byte;
  { money - начальная сумма, year - период лет, persent - процент }

  { ввод данных }
procedure vvod;
begin
  Write('money = ');
  ReadLn(money); { ввод начальной суммы денег }
  Write('% = ');
  ReadLn(persent); { ввод процента }
  Write('years = ');
  ReadLn(year); { кол-во лет }
end;

{ вывод результата }
procedure vivod;
begin
  sum := money;
  for i := 1 to year do
  begin
    sum := sum + (sum * (persent / 100));
    writeln('after ', i, ' years summa = ', sum:7:2);
  end;
end;

begin
  vvod;
  writeln('----------');
  vivod;
  ReadLn;

end.

Leave a Comment

64 − 57 =