решите задачу. По годовому депозиту назначена ставка 12% годовых.Каждую ставку годовых процентов нужно назначить на полугодовой депозит,чтобы последовательное переоформление полугодового депозита привело бы к такому же результату что и при использовании годового депозита?(к=360)указание:пренебречь одним днем,который теряется при переоформлении депозита. P=, i=. Годовой депозит:s1=. Полугодовой депозит:k= t= i=

var s:integer; p,mp,ms,s1,s2,min:real;beginwrite('s = ');readln(s);s1:=s*1.12;writeln('s1 = ',s1);min:=100;p:=10;while p<15 do begin p:=p+0.05; s2:=(s+s*p/100/2)+(s+s*p/100/2)*p/100/2; if abs(s1-s2)<min then begin min:=abs(s1-s2); mp:=p; ms:=s2; end; end;writeln('mp = ',mp,'%');writeln('s2 = ',ms:5:2);end.Пример:s = 20000s1 = 22400mp = 11.65%s2 = 22397.86