Решите пожалуйста, срочно нужно

10-11 класс

Прикрепленные изображения

Leozhamal 06 сент. 2014 г., 19:21:25 (9 лет назад)

Рейтинг

+ 0 -

Хороший вопрос

0 Жалоба

Ответить

+ 0 -

Twyla2002

06 сент. 2014 г., 21:11:26 (9 лет назад)

var
i, n, f: longint;
s: double;

begin
Write('Введите значение n: ');
Readln(n);
s := 0;
f := 1;
for i := 1 to n do
begin
f := f * i;
s := s + 1 / f
end;
Writeln('Сумма членов последовательности равна ', s)
end.

Тестовое решение:
Введите значение n: 5
Сумма членов последовательности равна 1.71666666666667

Хороший ответ

0 Жалоба Ответить

Ответить

Другие вопросы из категории

Nadya771 / 03 сент. 2014 г., 21:46:11

Нужно написать блок схему для следуйщей программы: Program Example1;

Const n=6;m=4;
Var A:array[1..n,1..m] of integer;
i,j,k:byte;
Begin
For i:=1 to n do
Begin
For j:=1 to m do
Begin
A[i,j]:=random(31)-15;
write(A[i,j]:4);
End;
writeln;
End;
write('Строки в которых один нулевой элемент: ');
For i:=1 to n do
Begin
k:=0;
For j:=1 to m do
if A[i,j]=0 then inc(k);
if k=1 then write(i:2);
End;
readln;
End.