Question

Написать программу на нахождение среднего арифметического натуральных чисел из промежутка [1;10].


Сумма 10 000 рублей положена в банк, при этом прирост составляет 5% годовых. Напишите программу, определяющую, через какой промежуток времени, первоначальная сумма увеличится в 2 раза. (Паскаль)

Answer 1

1. По условию не очень понятно, что требуется. Сделал, как понял. Если нужно что-то другое, сообщите подробности условия, и я исправлю

var

 n:real;

 i:integer;

begin

 n:=0;

 for i:=1 to 10 do

   n:=n+i;

 writeln(n/10);

end.

2. Немного отклонился от требований при входных данный, чтобы можно было изменить параметры, не меняя программу

var

 a,pr,n:real;

 i,k:integer;

begin

 write('Введите изначальную сумму вклада: '); readln(a);

 write('Введите ежегодный проценит(%): '); readln(pr);

 pr:=pr/100+1;

 write('Введите во сколько раз увеличить вклад: '); readln(k);

 i:=1;

 writeln(i,': ',a:6:2);

 n:=a;

 while a<k*n do

   begin

     inc(i);

     a:=pr*a;

     writeln(i,': ',a:6:2);

   end;

 writeln('Через ',i,' лет');

end.

Если моё решение помогло вам, отметьте мой ответ "лучшим". Спасибо! Удачи!