)числа 139, 448 из десятичной системы счисления перевести в 2-ую, 8-ую, 16-ую; число с8 из 16-ой системы счисления перевести в 10-ую; число 74 из 8-ой системы счисления перевести в 10-ую.
Перевод из одной системы счисления происходит путем деления исходного числа на основание нужной системы до тех пор, пока частное не будет меньше делителя. Затем, остатки от деления записываются в обратном порядке, т.е. если у нас были остатки 1 7 5, то число у нас получится 571. Например, переведем число 500 из 10-ой системы счисления в 16-ую. Не забудем, что цифры, начиная от 10, заканчивая 15 в 16-ой системе счисления обозначаются первыми 6 буквами английского алфавита: A B C D E F. На рисунке показано решение примера.
Program n1; Uses Crt; Var c: array[1..1000] of integer; n, i, null, otric, polozhit :integer; Begin writeln('Razmer massiva = '); Readln(n);
for i:=1 to n do begin c[i]:=random(40) - 20; write(c[i]:4); end;
writeln();
otric:=0; polozhit:=0; null:=0; for i:=1 to n do begin if (c[i]<0) then otric:=otric+1; if (c[i]>0) then polozhit:=polozhit+1; if (c[i]=0) then null:=null+1; end; writeln('Kol-vo chisel < 0: ', otric); writeln('Kol-vo chisel > 0: ', polozhit); writeln('Kol-vo chisel = 0: ', null); End.
448 = 111000000 = 700 = 1C0
C8 = 200
74 = 60