Ответ:
Procedure dec2oct(n: longint); { перевод натурального десятичного n в восьмеричную систему счисления и вывод результата } const alpha = '01234567'; var s: string; i: integer; begin s : = ''; while n > 0 do begin s : = alpha[(n mod 8) + 1] + s; n : = n div 8 end; for i: =length(s) to 9 do s: ='0'+s; write(s) end; { использование } var x: longint; begin write('введите десятичное число: '); read(x); write('в восьмеричной системе счисления: '); dec2oct(x); writeln end. тестовое решение: введите десятичное число: 1234567 в восьмеричной системе счисления: 0004553207
Объяснение:
а) 7 Кбайт = 7168 байт = 57344 бит
б) 1,5 Кбайт = 1536 байт = 12288 бит
в) (тут будет каша из цифр после запятой - 0.030517578125) Кбайт = 31,25 байт = 250 бит
г) 1,5 Гбайт = 1536 Мбайт = 1572864 Кбайт = 1610612736 байт
'В озеро Байкал впадает 336 рек' - 30 символов, 30*8 = 240 бит = 15 байт
250 страниц * 30 строк * 50 символов * 8 бит = 3000000 бит = примерно 366 Кбайт
Var i:integer; j,n:real;
begin
write('Введите число: '); readln(n);
i:=trunc(n);
j:=round(frac(n)*100);
write(i,' руб. ',j, ' коп.');
<span>end.</span>