Как выполнить достижение "Дом, милый дом" в фоллаут шелтер? Фоллаут шелтер я скачал с инета. Потом переустановил со стима. И зашёл на своё убежище. И у меня не выполняется достижение "Дом, милый дом" (там надо построить 25 комнат разных типов). Как мне его выполнить. Пробовал сносить и заново ставить комнату смотрителя, не .
Program G;
Uses Crt;
Const N=10;
Var i: integer; mass: array [1..n] of integer;
Begin
Randomize;
ClrScr;
Writeln('Исходный массив из 10 чисел диапозона (-5;5):');
For i:=1 to N do
Begin
Mass[i]:=Random(11)-5;
Write(Mass[i]:4);
End;
Writeln;
Writeln('Исходный массив после замены всех отрицательны на -1:');
For i:=1 to N do
If mass[i]<0 then mass[i]:=-1;
For i:=1 to N do write(Mass[i]:4);
Readln;
End.
0000011001000111
Объяснение:
Делим 1607 на 2 до тех пор, пока не сможем (то есть пока делимое число не станет равным единице). Получим результат:
11001000111
Нам дана двухбайтовая ячейка. Переведём из байт в биты.
2 байта = 2 · 8 бит = 16 бит.
Нолик или единица по отдельности - это один бит (условно; на самом деле - это выделяемая под них память). В нашем результате 11 бит (то есть 11 ноликов и единичек в сумме), остальные 5 остались незаполненными - отсюда и заполнение нулями (поскольку они ничего в результате не поменяют - таково устройство памяти и двоичного кода).