profile
Опубликовано 5 лет назад по предмету Информатика от Uliankin2903

В сберкассу на трехпроцентный вклад положили S рублей. Какой станет сумма вклада через N лет?  Надо решить с пост условием и параметром

  1. Ответ
    Ответ дан JohnWatson
    Держите.

    Var s:real;
    i,n:integer;
    Begin
    Writeln('Введите количество лет и сумму Вашего вклада');
    Readln(n,s);
    For i:=1 to n do
    s:=s+s*0.03;
    Write(s); 
    Readln;
    End.
    ___________
    Var s:real;
    i,n:integer;
    Begin
    Writeln('
    Введите количество лет и сумму Вашего вклада');
    Readln(n,s);
    i:=1;
    Repeat
    s:=s+s*0.03;
    inc(i);
    Until i>n;
    Write(s);
    Readln;
    end.
Самые новые вопросы