1) 100=1×8 в первой степени +0×8 в нулевой степени +0×8 в минус первой степени =8+0+0=8=8×10=80 102=1×8 в первой степени +0×8 в нулевой степени +2×8 в минус первой степени =8+0+16=24 91=9×8 в первой степени +1×8 в нулевой степени =72+1=73 2)100=1×16 в первой степени +0×16 в нулевой степени +0×16 в минус первой степени =16+0+0=16 102=1×16 в первой степени +0×16 в нулевой степени +2×16 в минус первой степени =16+0+32=48 91=9×16 в первой степени +1×16 в нулевой степени =144+1=145 3)100=1×8 в первой степени +0×8 в нулевой степени +0×8 в минус первой степени =8+0+0=8=8×16=128 102=1×8 в первой степени +0×8 в нулевой степени +2×8 в минус первой степени =8+0+16=24=2×16+4×16=36 91=9×8 в первой степени +1×8 в нулевой степени =72+1=73=7×16+3×16=112+3=115
Не очень корректно объяснили, но если правильно вас понял: Program G; Var n, z, m, p: integer; Begin z:=0; p:=0; m:=0; Writeln('Введите число n. Число 9999 завершает цикл.'); Readln(n); While n<>9999 do Begin If n=0 then inc(z); else if n>0 then inc(p); else inc(m); Writeln('Введите число'); Readln(n); End; Writeln('Было введено ', z, ' нулей.'); Writeln('Было введено ', p, ' положительных чисел.'); Writeln('Было введено ', m, ' отрицательных чисел.'); Readln; End.
ну вроде диск флешка и касета...