Возможно западает какая-нибудь клавиша на клавиатуре или мышке (если были механические повреждения или что-нибудь проливали). Либо может кто-то шутить, подключившись через программу удаленного управления, например.
Настя это прекрасное имя)
Const n =50;var s,i,j,z:integer;m:array[1.. n] of integer;begin writeln('Размер массива'); s:= ReadInteger(); for i:=1 to s do begin m[i] := random(100)-50; write( m[i]:4); end; writeln; for i:=1 to s do begin j := m[i]mod 4; z := m[i]mod 6; if (j = 0)or (z=0) then write(i:4); end;<span>end.</span>
Начнём по простому.
Сначала рассчитаем объем файла в битах.
512000*16 = 8192000 - бит.
Далее, в одном байте - 8 бит.
А в одном килобайте - 1024 байт.
Следовательно, в одном килобайте - 8*1024 = 8192 бит.
Значит, объем файла:
8192000/8192 = 1000 килобайт.
В тропосфере развиваются циклон и антициклон.