A:=2468;
b:=(2468 mod 1000)=468*10=4680
a:=2468 div 1000=2+4680=4682
1023 тк максимальное число в двоичной системе счисления с десятью цифрами 1111111111 переводим его в десятичную 1111111111<span> = 2^</span>9*1 + 2^8*1 + 2^7*1 + 2^6*1 + 2^5*1 + 2^4*1 + 2^3*1 + 2^2*1 + 2^1*1 + 2^0*1 = 512 + 256 + 128 + 64 + 32 + 16 + 8 + 4 + 2 + 1 = 1023
решение в среде Паскаль:
Var a:array[1..10] of Integer; i,s,m: integer; f,t:real;
begin
s:=0;
writeln('write marks');
For i:=1 to 10 do begin
readln(a[i]);
If i>1 then begin
If a[i-1]=2 then begin
If a[i]<>2 then begin s:=s-2; m:=m-1; end;end;end;
s:=s+a[i];
m:=m+1;
end;
f:=s/m;
t:=Int(f);
Writeln('His or her mark is ', t:2:0);
readln;
end.