Дано действительное число x. Вычислить выражение(пример на фото)program z3_23;uses crt;var

Дано действительное число x. Вычислить выражение(пример на фото)
program z3_23;
uses crt;
var i,k,z: integer;
x,s,s1,s2:real;
Begin
ClrScr;
Write('x=');
Read(x);
s1:=x; s2:=1;z:=1;k:=1;
For i:=1 to 7 do
begin
s:=s+z*s1/s2;
s1:=s1*x*x;
s2:=s2*(k+1)*(k+2);
z:=-z;
k:=k+2;
end;
write('s=',s:5:6);
Readkey;
end.
For i:=1 to 7 do-поменять на while вот это нужно

Задать свой вопрос
1 ответ
Uses crt;
var
    k: integer;
    x, s, a: real;

begin
    ClrScr;
    Write('x=');
    Readln(x);
    
    a := x;
    s := a;
    k := 3;
    while k lt; 13 do
    begin
        a := a * (-1) * x * x / k / (k - 1);
        s := s + a;
        k := k + 2;
    end;
    
    writeln('s=', s:5:6);
    Readkey;
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт