Предприниматель,начав дело,взял кредит размером k рублей под p процентов годовых и вложил его в своё дело.по прогнозам ,его дело должно давать прибыль r рублей в год.сможет ли он накопить сумму,достаточную для погашения кредита,и если да,то через сколько лет?

Рассмотрим простейшую схему кредитования (и самую невыгодную для заёмщика), когда за каждый год отдается фиксированный процент p от первоначальной суммы кредита k без учета того, что часть кредита уже погашена за предыдущие годы. в этом случае ежегодная сумма процентов по кредиту составит sk=k×p%/100%. за n лет будет отдано n×sk. и еще нужно вернуть саму сумму кредита k. итого нужно вернуть k+n×sk. доход за это время составит n×r и получаем неравенство n×r ≥ n×sk+k n×(r-sk) ≥ k → n ≥ k/(r-sk) с округлением до целых в большую сторону. // pascalabc.net 3.3, сборка 1583 от 25.11.2017 // внимание! если программа не работает, обновите версию! begin   var (k,p): =readreal2('сумма кредита и процент годовых: ');   var r: =readreal('предполагаемый годовой доход: ');   var sk: =k*p/100;   if r< =sk then writeln('рассчитаться за кредит невозможно')   else writeln('количество лет на погашение кредита: ',floor(k/(r- end. пример сумма кредита и процент годовых: 10 0000 16 предполагаемый годовой доход: 24000 количество лет на погашение кредита: 12

Var i: integer; k,r,p,a: real; begin   read(k,p,r);   i: =1; while k> r do   begin     a: =(k-r)+(k-r)*p/100;     if a> k     then break;     k: =(k-r)+(k-r)*p/100;     i: =i+1   end; if a> k then writeln('no') else writeln(i); end.

Избавиться можно антивирустником для компьютера, диск такой специальный. а компьютерный вирус- это вирус после котого компьютер глючит.