
Свирид
7 год назад
x + x^3\3+x^5\5+ ......x^11\11 вычислить
язык паскаль
ОТВЕТЫ

Вит
Jul 10, 2019
Var
x,i: integer;
rez: real;
begin
write (Введите x: );
readln (x);
i:=1;
rez:=0;
while ilt;=11 do begin
rez:=rez+power(x,i)/i;
i:=i+2;
end;
writeln (rez = ,rez);
end.
-----------------------------------------
Введите x: 2
rez = 272.423088023088
x,i: integer;
rez: real;
begin
write (Введите x: );
readln (x);
i:=1;
rez:=0;
while ilt;=11 do begin
rez:=rez+power(x,i)/i;
i:=i+2;
end;
writeln (rez = ,rez);
end.
-----------------------------------------
Введите x: 2
rez = 272.423088023088
85
Смежные вопросы: