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.

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

Answer 2

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

program AverageCalculation;
var
  sum, count, number: integer;
  average: real;
begin
  sum := 0;
  count := 0;
  for number := 1 to 10 do
  begin
    sum := sum + number;
    count := count + 1;
  end;
  average := sum / count;
  writeln('Среднее арифметическое натуральных чисел из промежутка [1;10] = ', average:0:2);
end.

Программа определения времени удвоения первоначальной суммы в банке (Паскаль)

program DoublingTimeCalculation;
var
  initialAmount: real;
  interestRate: real;
  years: integer;
begin
  initialAmount := 10000;
  interestRate := 0.05;
  years := 0;
  while initialAmount < 20000 do
  begin
    initialAmount := initialAmount * (1 + interestRate);
    years := years + 1;
  end;
  writeln('Первоначальная сумма увеличится в 2 раза через ', years, ' лет.');
end.

Надеюсь, это поможет! Если у вас есть еще вопросы или нужна дополнительная информация, не стесняйтесь спрашивать.