Объяснение:
Там по тексту найдёшь эти предложения
2 задача
program qq;
<span>var b, c, z, d: integer;</span><span>
S, a: real;
</span>
begin
<span>
S := 0; z := 1;</span>
<span><span> b := </span>2; c
:= 3; d:= 3; a := 1;</span><span>
while abs(a) > 0.001 do begin</span><span>
S := S + a;
</span><span> a := z * b / (c*d);</span><span>
z := - z;</span><span>
b := b + 2;</span><span>
c := c + 2; d:=d*3;</span><span>
end;</span>
<span> writeln('S =', S:10:3);
</span> <span>end.
</span>КАК то так
Первое
100 руб - 100 %
1 % = 1 руб
5 % = 5 руб
100 - 5 -5 = 90 руб
второе
100руб - 100 %
1 % = 1 руб
10 % = 10 руб
100 - 10 - 10 = 80 руб