Сформировать массив по правилу - Pascal ABC (14124)

Формулировка задачи:

Задано количество членов разложения e = 2 + 1/2! + 1/3! + 1/4! + …, не превышающее 25. Сформировать массив, содержащий эти числа, вывести их и значение их суммы.


textual

Код к задаче: «Сформировать массив по правилу - Pascal ABC (14124)»

const max=25;
var a:array[1..max] of real;
    n,i:integer;
    s,f:real;
begin
repeat
write('n [1..25] n=');
readln(n);
until n in [1..25];
a[1]:=2;
writeln(a[1]);
f:=1;
s:=2;
for i:=2 to n do
 begin
  f:=f*i;
  a[i]:=1/f;
  s:=s+a[i];
  writeln(a[i]);
 end;
write('s=',s);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 3.778 из 5

Источник
Похожие ответы