<span>Program flint</span>
<span>var </span>
<span>S, i: integer; </span>
<span>begin </span>
<span>writeln('Введите S'); </span>
<span>readln(S); </span>
<span>for i:=1 to 10 do </span>
<span>s:=s*1,03/0,98; </span>
<span>writeln('Реальная сумма через 10 лет: '); </span>
<span>writeln(S); </span>
<span>readln(); </span>
<span>end.</span>
1. C12 +5;
2. B11 + E4;
3. C6 * 2;
4. C$10 * $B6;
5. а) A$3 + 4,
б) нет,
в) E$3 + 4,
г) E$3 + 4;
6. D5 + 3;
7. D5 *2;
8. F$5 *10.
Sub M1()
MsgBox (Application.Max( _
Application.Min(InputBox("Введите a"), _
InputBox("Введите b")), _
Application.Min(InputBox("Введите c"), _
InputBox("Введите d")) _
))
End Sub