Думаю так
<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++
Газета- визуальная
Книга визуальная,
Компьютер, визуальная слуховая
На экран будет выводится:
А) 45
y := 0; FOR x := 1 TO 9 do y := y + x;
В начале y=0;
Потом начинается цикл : от 1 до 9 (включительно и с шагом в единицу(+1))
X:=1;
y:=0+1; y:=1;
x:=2; y:=1;
y:=x+y; y:=2+1; y:=3 ;
x:=3;y:=3; y:=3+3; y=6;
x:=4;y:=6; y:=4+6; y=10;
и т.д. по аналогии
Б)0
y := 0; FOR x := 1 TO 5 do y := y * x; Writeln (y);
При умножение числа на 0 будет 0;
Т.к. y := 0; , то в равенстве y := y * x; , при любом значение x, y будет = 0