№3 <span>Линий-выносок, размерных линий, полок</span>
Ответ в прикрепленном файле
PascalABC.Net
1)
var
i,s,p : integer;
begin
s := 0;
p := 1;
for i := 3 to 18 do
if (i-2) mod 3 = 0 then
begin
s := s + i;
p := p * i;
end;
writeln ('s=',s);
writeln ('p=',p);<span>
end.
2)
Программа не зачисляет процент в первый год, если нужно, чтобы зачислила, то поменяй местами строки вывода и присвоения внутри цикла
var
i : integer;
s : real;
begin
s := 10000;
for i := 2010 to 2015 do
begin
writeln (i,'-',s);
s := s * 1.1;
end;<span>
end.</span></span>
<span>K = int(input("K = "))
D = int(input("D = "))
T = <span>60
</span>for i in range(50,T+1):
----A = (K / (i + 8 )) + D
----print("A = (" + str(K) + " / "+ str(i) +" + 8))+ " +str(D) + " = "+ </span>str(round(A,4)))