Var b,i,k,n: int64;
begin
readln(n);
b:=1;
for i := 1 to n do
b:=b*i;
writeln(b);
end.
Входные данные подставлять в переменную n
Ответ на ребус - информация
Var
n : integer;
begin
read (n);
while n > 0 do
begin
write (n, ' ');
n := n - 1;
end;
end.
Правильный ответ 3)<span> (¬A ^ ¬B) ^ ¬C
</span>