<em>1.Краткая запись</em>
<em>2.Решение</em>
<em>3.Ответ</em>
{
Код программы и скриншот работы в приложениях
Написано на PascalABC.NET
}
Думаю так
<span>var i, n: integer; s: real;
begin write('S N? '); readln(s, n); for i:=1 to n do s:=s*1.02; writeln(s:0:2); readln end.</span>
А проще без цикла:
<span>var n: integer; s: real;
begin write('S N? '); readln(s, n); writeln(s*exp(n*ln(1.02)):0:2); readln end.</span>
А на русском языке программы не составляют. Pascal, C, C++