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>
<em>Вычислительная система (ВС) - это взаимосвязанная совокупность аппаратных средств вычислительной техники и программного обеспечения, предназначенная для обработки информации.
</em>
<em />
<em>Иногда под ВС понимают совокупность технических средств ЭВМ, в которую входит не менее двух процессоров, связанных общностью управления и использования общесистемных ресурсов (память, периферийные устройства, программное обеспечение и т.п.).</em>
<span>program 123;
uses crt;
var m, n: longint;
k: integer; {счетчик цифр}
begin
clrscr;
{Вводим целое число.}
writeln('Введите N='); readln(n);
{Запоминаем его и счетчику цифр присваиваем начальное значение.}
m:=n;k:=0;
{Пока m<>0 делать цикл.}
while m <>0 do
begin
{"Уменьшаем" число на последнюю цифру, т. е. в 10 раз.}
k:=k+1; m:= m div 10; {Inc(k) }
end;
{Вывод количества цифр.}
writeln('B числе ',n,'- ',k, ' цифр!');
readln;
end.</span>
Акцес, adobe, и так далее
var a: integer;
begin
writeln ('Введите номер пальца');
readln(a);
if a=1 then writeln ('Большой палец');
if a=2 then writeln ('Указательный палец');
if a=3 then writeln ('Средний палец');
if a=4 then writeln ('Безымянный палец');
if a=5 then writeln ('Мизинец');
end.
