1024000 * 5 = 5120000 Бит
1Бит = 0,000125Кбайт
5120000 * 0,000125 = 640Кбайт
Const flats_per_floor = 3;var n, flat, floor: Integer;begin Write('n = '); ReadLn(n); WriteLn('Какой номер квартиры нужен человеку?'); ReadLn(flat); floor := (flat - 1) div flats_per_floor + 1; if (floor > n) or (flat <= 0) then begin writeln('Неверный номер квартиры'); exit; end; if (floor mod 2 = 1) then writeln('Едем на ', floor, ' этаж') else writeln('Едем на ', floor - 1, ' этаж');end.
а: = 123
b: = а div10 = 12
b: =b/4+2 = 12 / 4 + 2 = 5
b: =b *25+2 = 5 * 25 + 2 = 127
а: = а+b = 123 + 127 = 250
11110101 1+4+16+32+64+128=245
Формат 2003. Другой заблокирован сайтом