Предприниматель, начав дело, взял кредит размером 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.

100 кбайт = 100 * 8 = 800 кбит

800 : 1024 = 0,78125 мбит

0,78125 : 100 = 0,0078125 сек

 

в си:

# include < stdio.h> # include < conio.h> void main ()  {

    clrscr();

    int x,y,c,k;

    printf("vvedite x \n");  

    scanf("%d",& x);

    printf("vvedite y \n");  

    scanf("%d",& y);

    printf("vvedite c \n");  

    scanf("%d",& c);

    k=x+(y/(2*c));

    printf("otvet: %d \n",k);

    getch();

  }