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

Var s:integer; p,mp,ms,s1,s2,min:real;
begin
write('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 = 20000
s1 = 22400
mp = 11.65%
s2 = 22397.86