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 a,b,c,d,e,m1,m2,m3,ITOG:integer;
Procedure nod(x,y:integer;var n:integer);
Begin
If x=y then n:=x
else
if x>y then NOD(x-y, y, n)
Else NOD(x, y-x, n);
end;
begin
read (a,b,c,d,e);
nod(a,b,m1);
nod(c,d,m2);
nod(m1,m2,m3);
nod(m3,e,ITOG);
writeln (ITOG);
end.
Пример:
90 135 45 315 75
15
Дискретные сигналы (они же цифровые)- принимают конечное число значений функции:
примеры дискр:
-энергетические уровни атома
-сигналы светофора
-символы, слова и т.д. и т.п.
Непрерывный (он же аналоговый)- принимает бесконечное количество значений функции, амплитуда и время которого меняются непрерывно.
Примеры непрерывных:
-звуковая волна
-диаграмма изменения давления, влажности, напряжения и др. физ. величин.
Для преобразования непрерывного сигнала в дискретные производят дискретизацию. Процесс дискретизации сопровождается потерей информации, если частота дискретизации в 2 раза меньше максимальной частоты непрерывного сигнала по теореме Найквиста (вроде так), в России эту теорему называют теоремой Котельникова.
Var n,a,b,c,d:integer;
begin
readln(n);
for a:=1 to n-1 do
for b:=a to n-1 do
begin
d:=a*a+b*b;
c:=1;
while c*c<d do c:=c+1;
if (d=c*c)and(c<n) then writeln(a,' ',b,' ',c);
end;
end.
Пример:
20
<span>3 4 5
5 12 13
6 8 10
8 15 17
9 12 15</span>
Два действия в одном блоке: да, так делают. Это схематическое обозначение операции И-НЕ.