Сформировать массив по правилу - Pascal ABC (14124)
Формулировка задачи:
Задано количество членов разложения e = 2 + 1/2! + 1/3! + 1/4! + …, не превышающее 25. Сформировать массив, содержащий эти числа, вывести их и значение их суммы.
Решение задачи: «Сформировать массив по правилу»
textual
Листинг программы
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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д