var
v,p:real;
k:integer;
begin
v:=1000;
repeat
write('Введите процент 0<P<25 p= ');
readln(p);
until (p>0)and(p<25);
k:=0;
while v<=1100 do
begin
v:=v*(1+p/100);
writeln(v:0:2);
k:=k+1;
end;
write('Число месяцев=',k,' размер вклада=',v:0:2);
end.
Современные инструменты для криптотрейдинга: как технологии помогают принимать решения
Апостиль в Лос-Анджелесе без лишних нервов и бумажной волокиты
Основные этапы разработки сайта для стоматологической клиники
Продвижение своими сайтами как стратегия роста и независимости