Переведите этот код паскаля на
factorial, sum_factorial, x, xs: real;
i, N, z: integer;
begin
write('Введите N: ');
readln(N);
write('Введите x: ');
readln(x);
factorial := 1;
sum_factorial := 0; // начальное значение на этот раз не 1.
z := -1;
xs := 1; // значение степени х
for i := 1 to 2 * N + 1 do
begin
factorial := factorial * i; // значение факториала
xs := xs * x; // степень х
if i mod 2 <> 0 then // проверяем нечетность i
begin
z := -z; // меняем знак z
sum_factorial := sum_factorial + z * (xs / factorial);
end;
end;
writeln('Сумма факториалов = ', sum_factorial, ' = ', sin(x)); //проверка end.

belozerovanastya    1   16.07.2020 16:28    0