На чем и может ли она принимать аргументы? А вообще - это называется факториал и обозначается !
Функция на PHP:
function summa($n)
{
for($i=1;$i<$n;$i++)
{
$summa = $i+$i;
}
}
Возможно немного ошибся
Procedure SumKol(var n,k,s:integer);
begin
if n>0 then begin
s:=s+n mod 10;
k:=k+1;
n:=n div 10;
SumKol(n,k,s)
end
end;
function Mean(n:integer):real;
var k,s:integer;
begin
k:=0; s:=0;
SumKol(n,k,s);
if k>0 then Mean:=s/k else Mean:=0
end;
var
n,k,s:integer;
m:real;
begin
Read(n);
Writeln(Mean(n))
end.
Var
a:integer;
begin
readln(a);
If (a<10000) and (a>=0) then
If (a>999) then
If ((a div 1000)=(a mod 10)) and ((a div 10 mod 10)=(a div 100 mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>99) and (a<1000) then
If ((a div 100)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>9) and (a<100) then
If ((a div 10)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
writeln('1')
else
writeln('Неправльное число');
end.
Большое немного решение, может можно и поменьше, но так точно правильно