a) Переводим целую часть 91(10) в 2-ую систему последовательным делением на 2:
91/2 = 45, остаток: 1
45/2 = 22, остаток: 1
22/2 = 11, остаток: 0
11/2 = 5, остаток: 1
5/2 = 2, остаток: 1
2/2 = 1, остаток: 0
1/2 = 0, остаток: 1
91(10) = 1011011(2)
б)Переводим целую часть 675(10) в 8-ую систему последовательным делением на 8:
675/8 = 84, остаток: 3
84/8 = 10, остаток: 4
10/8 = 1, остаток: 2
1/8 = 0, остаток: 1
675(10) = 1243(8)
в)Переводим целую часть 270(10) в 16-ую систему последовательным делением на 16:
270/16 = 16, остаток: 14, 14 = E
16/16 = 1, остаток: 0
1/16 = 0, остаток: 1
270(10) = 10E(16)
Объяснение:
var i: integer;
sum:real;
begin
sum:=0;
for i:=1 to 50 do
sum:=sum+1/i;
writeln(sum);
end
точно не помню