1 байт = 8 бит
8192:8=1024 байта
1 мб = 8388608 бит
4 мб = 8388608*4 = 33554432 бит
12582912 бит = 1.5 мб
Ввод(ЧИСЛО)
Цикл пока ЧИСЛО>0
Вывод(ОстатокОтДеления(ЧИСЛО / 10))
Число = Число / 10
КонецЦикла
Если нет стандарной операции остаток от деления можно посчитать как
ЧИСЛО - ((ЧИСЛО / 10)*10)
При ремонте квартиры необходимо знать метраж (ширина, длина комнат, высота потолков), каждая комната представляет собой квадрат или прямоугольник. Для покупки строительных материалов это важно знать. Необходимо также уточнить, где проложены коммуникации (электропроводка и пр.).
12 * 2= 24
24 * 2=48
48-3=45
45-3=42
42-3=39
39-3=36
36-3=33
Const n = 10;
var x: array[1..n] of integer;
i: integer;
begin
Randomize;
for i := 1 to n do
begin
x[i] := Random(11);
Write(x[i]:4)
end;
end.