1 - n = input("Факториал числа ")<span>n = int(n)
fac = 1
i = 0
while i < n:
i += 1
fac = fac * i
print ("равен",fac<span>)
2 - </span></span>import operator<span>def fact(n):
return reduce(operator.mul, xrange(1, n + 1), 1)
print fact(5<span>)
3 -</span></span> import math <span>math.factorial(5)</span>
var x,n:integer;
begin
readln(n);
readln(x);
for i=:1 to n do
x:= (x-i);
end.
Если решение задачи будет не верно, извените значит надо писать более подробно.
Pascal это программа по моему если я не ошибаюсь
Ответ:
Объяснение:
program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.
программу проверил все работает
A AND (NOT(B))
как я поняла, надо записывать так :)