var a:array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
begin
if i mod 2 = 0 then A[i] :=i * 2
else A[i] :=0;
write (a[i]:3)
end
end.
Думаю алгоритм будет таким:
С д е ф г т.к это все мы обрабатываем и делаем какое-либо действие
E =15 (10cc)
A=10 (10cc)
3 2 1 2 -1 -2 <--- позиции цифр в числе
E 4 1 A, 1 2 (16cc) =15*16^3+4*16^2+1*16+10*16^0+1*16^-1+2*16^-2=
=61440 + 1024 + 16+10 + 0,0625 +0,0078125=
=62490,0703125