За что отвечает каждая строка? Это PascalABC var n,i: integer;
function fact(n: integer): integer;
begin
if n = 1 then
fact:= 1
else
fact:=fact(n-1)*n;
end;
begin
for i:= 1 to 9 do
if i mod 2 = 1 then
writeln(fact(i));
end.

olgadulebenez    2   17.12.2020 20:03    0