Var m1,m2,m5,m10,m50,m100,m500,s:integer; begin m1:=0; m2:=0; m5:=0; m10:=0; m50:=0; m100:=0; m500:=0; readln(s); while s>0 do begin if s>=500 then begin s:=s-500; m500:=m500+1; end else if s>=100 then begin s:=s-100; m100:=m100+1; end else if s>=50 then begin m50:=m50+1; s:=s-50; end else if s>=10 then begin s:=s-10; m10:=m10+1; end else if s>=5 then begin m5:=m5+1; s:=s-5; end else if s>=2 then begin m2:=m2+1; s:=s-2; end else begin m1:=m1+1; s:=s-1; end; end; writeln('500р = ',m500); writeln('100р = ',m100); writeln('50р = ',m50); writeln('10р = ',m10); writeln('5р = ',m5); writeln('2р = ',m2); writeln('1р = ',m1); end.
-13.2987654320FF00000000(16) где (16) - это основание шеснацетиричной системы счисления
Объяснение:
-(3×5^1+4×5^0+2×5^(-1)+1×5^(-2)) + (1×9^1+5×9^0+4×9^(-1)) ÷ (1×3^3+2×3^2+2×3^1+1×3^0) = -(15+4+0.4+0.04) + (9+5+4/9) ÷ (27+18+6+1) = -19.44 + 14/52 + 4/468 = -19.162222222222223(10) = -13.2987654320FF00000000(16) где (16) - это основание шеснацетиричной системы счисления