dim a,b,n,s as integer
input a
b=a
n=0
x=0
do
b=b\10
x=b mod 10 +x ' сумма цифр
n=n+1 'сколько цифр
loop until b<>0
print n, x
if a mod 2 = 0 then print ("четное") else print ("нечетное")
a=a mod 100 ' сколько сотен
print a
'я не помню точно синтаксис фуникций input и print, так что проверь
Да
в СИС теме много схем вот одна 546родикалит82-гом
Если я всё правильно понял, то вот:
var x: array [0..15] of integer;
sum,pr,i,max:longint;
begin
randomize;
sum:=0;
pr:=1;
For i:=1 to 15 do x[i]:=random(5)+1;
For i:=1 to 15 do
begin
sum:=sum+x[i];
pr:=pr*x[i];
end;
if pr>sum then max:=pr else max:=sum;
writeln(max);
<span>end.</span>
5A316 = 3·160+10·161+5·162
= 3·1+10·16+5·256 = 3+160+1280 = 144310
0hex
=
0dec
=
0oct
0
0
0
0
1hex
=
1dec
=
1oct
0
0
0
1
2hex
=
2dec
=
2oct
0
0
1
0
3hex
=
3dec
=
3oct
0
0
1
1
4hex
=
4dec
=
4oct
0
1
0
0
5hex
=
5dec
=
5oct
0
1
0
1
6hex
=
6dec
=
6oct
0
1
1
0
7hex
=
7dec
=
7oct
0
1
1
1
8hex
=
8dec
=
10oct
1
0
0
0
9hex
=
9dec
=
11oct
1
0
0
1
Ahex
=
10dec
=
12oct
1
0
1
0
Bhex
=
11dec
=
13oct
1
0
1
1
Chex
=
12dec
=
14oct
1
1
0
0
Dhex
=
13dec
=
15oct
1
1
0
1
Ehex
=
14dec
=
16oct
1
1
1
0
Fhex
=
15dec
=
17oct
1
1
1
1