Я так понял, у вас "экран смерти", и предполагаю, что это Windows 10.
<u>Попробуйте сделать вот эти действия:</u>
1. Нажмите F8
2. Затем, у вас появится в <em>"безопасном режиме"</em> мн-во вариантов, нам нужно <em>"Отключить проверку драйверов"</em> – скорее всего это 7 пункт, выбираете его.
3. После этого, перезагрузка должна пройти успешно.
А лучше, если не знаете, что делать, то нести своё устройство(а) в <u>Сервисный Центр!!!</u>
2бит = 0.25байт
213бит = 0.213кб
1мб = 1024кб = 128000байт = 1024000бит
12288 бит = 1,536кб
Var
x:real;
n:integer;
begin
Write('Введите x -> ');
Readln(x);
Write('Введите номер действия(1..4) - > ');
readln(n);
case n of
1: Writeln('y = ', x*x);
2: Writeln('y = ', cos(x));
3: Writeln('y = ', sin(x));
4: Writeln('y = ', abs(x));
end;
end.
var f,g:string;
i:integer;
begin
readln(f);
for i:=1 to length(f)-1 do if (f[i+1]='а') then g:=g+f[i];
writeln(g);
g:='';
for i:=2 to length(f) do if (f[i-1]='а') then g:=g+f[i];
writeln(g);
end.