Решаем задачи Абрамян на Паскале. For32

For32. Дано целое число $$N$$ ($$> 0$$). Последовательность вещественных чисел $$A_K$$ определяется следующим образом: $$A_0 = 1, A_K = (A_{K-1} + 1)/K, K = 1, 2, …$$ . Вывести элементы $$A_1, A_2, …, A_N$$.

Решение:

program For32;
var
  Ai :Real;
  N, i :Integer;
begin
  Write('Введите N: ');
  Readln(N);
  Writeln('Значения функции:');
  Writeln('A(0)=1');
  Ai:=1;
  For i:=1  to N do
  begin
   Writeln('A(',i,')=',(Ai+1)/i);
   Ai:=(Ai+1)/i;
  end;
end.

program For32;

var

Ai :Real;

N, i :Integer;

begin

Write('Введите N: ');

Readln(N);

Writeln('Значения функции:');

Writeln('A(0)=1');

Ai:=1;

For i:=1 to N do

begin

Writeln('A(',i,')=',(Ai+1)/i);

Ai:=(Ai+1)/i;

end;

end.

Другие задачи из раздела For можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. For32

Комментарии:

Добавить комментарий Отменить ответ