INPUT "n=", n
s = 0
i = 1
DO WHILE i <= n
s = s + 2 * i
i = i + 1
LOOP
PRINT "s="; s
Сначала переводим из 16 системы счисления в 10
F9D2=F*16^3+9*16^2+D*16+2=63954
Теперь десятичное число 63954 переводим в 2 систему счисления:
63954/2 =31977 остаток 0
31977/2=15988 ост 1
15988/2=7994 ост 0
7994/2=3997 ост 0
3997/2=1998 ост 1
1998/2=999 ост 0
999/2=499 ост 1
499/2=249 ост 1
249/2=124 ост 1
124/2=62 ост 0
62/2=31 ост 0
31/2=15 ост 1
15/2=7 ост 1
7/2=3 ост 1
3/2=1 ост 1
Записываем 1 и все остатки в обратном порядке, получаем:
1111100111010010 в 2 системе счисления. число занимает 16 ячеек, т.е. 2 байта как и в условии
Получаем ответ: 1111100111010010
Программа не правильная, работать не будет.
//Правильный вариант
Var s,k:integer;
Begin
s:=0;
for k:=8 to 12 do
s:=s+12;
Writeln(s);
End.
s = 60
Цикл выполнится 5 раз.
V=i*pix. N=256, значит i=8( N=2 в степени I). V=8*786432=6291456 бит=786432 байт=768 кб
В порядке возрастания:
бит
байт
килобайт
мегабайт
гигабайт
терабайт
петабайт
эксабайт
зеттабайт
<span>йоттабайт </span>