3. составить программу вычисления суммы факториалов всех четных чисел от т до п.

9573st 9573st    1   20.05.2019 14:33    1

Ответы
Настюха20071 Настюха20071  01.10.2020 00:54

Var a, n, k, t, s:integer;

Bedin

Readln(n)

S:=0;

For i:=1 to n do

If i mod 2 =0 then

Begin

For t:=1 to i do

K:=k*t;

S:=s+k;

End;

Writeln(s);

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика