По заданному натуральному значению n и вещественному числу х вычислите 1+х/2+х/6+х/24+....+х/n!
175
ОТВЕТЫ
Var
N,i:integer;
X,S,F:real;
Begin
Write(N = );ReadLn(N);
Write(X = );ReadLn(X);
S:=1;
For N:= 1 to N do
Begin
F:=1;
For i:= 2 to N+1 do
F:=F*i;
S:=S+X/F;
End;
Write(S);
End.
N,i:integer;
X,S,F:real;
Begin
Write(N = );ReadLn(N);
Write(X = );ReadLn(X);
S:=1;
For N:= 1 to N do
Begin
F:=1;
For i:= 2 to N+1 do
F:=F*i;
S:=S+X/F;
End;
Write(S);
End.
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger(n=);
var x:=ReadReal(x=);
(var s,var a):=(0.0,1.0);
for var i:=2 to n do begin a:=a/i; s+=a; end;
Writeln(S=,1+x*s)
end.
Пример
n= 10
x= 2.7
S=2.93936086309524
256
Отв. дан
Felonn
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Vazhoshp
Клиент компании положил на свой счёт некоторую сумму а ...
2019-04-22 07:11:23
Базильевич
С клавиатуры поочередно вводятся целые числа. Вычислите сумму положительных ...
2019-04-22 07:11:07
Анаклет
С клавиатуры последовательно вводятся координаты точек. Сколько точек попадут ...
2019-04-22 07:07:16
Vatanvozh