1. Недоступен жесткий диск (ошибка контроллера жестких дисков или неисправность накопителя).
2. Сбой при чтении начальных секторов на жестком диске (MBR).
3. Сбой при чтении системных таблиц на жестком диске.
4. Неверные (сбитые) параметры жесткого диска и контроллера в BIOS компьютера.
5. Сбой аппаратной части компьютера при загрузке (все выключить, через 30с попытаться загрузиться повторно).
Var n,k:integer;
begin
read(n);
while (n>0) do begin
k+=1;
n:=n div 10;
end;
writeln(k);
<span>end.</span>
//Вроде бы знакомый аватар...
//Соглашусь с предыдущим оратором, решается в 3 строки без циклов
//Pascal ABC.NET v3.0 сборка 1111
Const
n=10;
var
ar:array[1..n] of integer;
sum,i:integer;
begin
randomize;
for i:=1 to 10 do
begin;
ar[i]:=random(50,100);
sum+=ar[i];
write(ar[i]:4);
end;
writeln;
write('Sum=',sum);
end.
1111110010<span>- количество нулей - 3</span>