Паскальvar x, s, a: real; i: integer; begin readln(x); a := x; s := a; for i := 2 to 13...

Question

Паскаль
var
x, s, a: real;
i: integer;

begin
readln(x);

a := x;
s := a;

for i := 2 to 13 do
if i mod 2 = 1 then begin
a := a * (-1) * x * x / ((i - 1) * i);
s := s + a;
end;

writeln(s);
end.
Объясните это словами, срочно, помогите

Answer 1

Есть вопросы пиши в личку
Паскаль
var
x, s, a: real; //описание переменных вещественного типа
i: integer; //описание переменных целого типа

begin
readln(x); ввод переменной x через клавиатуру

a := x; переменной a присваивается знчение переменной x
s := a; переменной  s присваивается знчение переменной a

for i := 2 to 13 do //цикл for выполняется пока переменная  i не станет больше 13
if i mod 2 = 1 then begin  если i mod 2 = 1 истино то выполняется блок программы ниже
a := a * (-1) * x * x / ((i - 1) * i);
s := s + a;
end;

writeln(s); вывод переменой s
end.