Паскаль:
var a:integer;begin ReadLn(a); if not (a mod 2 = 0) then WriteLn(a*2); if a > 7 then Writeln(Sqrt(a));end.
Я так понял, у вас "экран смерти", и предполагаю, что это Windows 10.
<u>Попробуйте сделать вот эти действия:</u>
1. Нажмите F8
2. Затем, у вас появится в <em>"безопасном режиме"</em> мн-во вариантов, нам нужно <em>"Отключить проверку драйверов"</em> – скорее всего это 7 пункт, выбираете его.
3. После этого, перезагрузка должна пройти успешно.
А лучше, если не знаете, что делать, то нести своё устройство(а) в <u>Сервисный Центр!!!</u>
Var a, b, x : real;
Begin
Write('Введите а: ');
Readln(a);
Write('Введите b: ');
Readln(b);
X := -b + b * b - 4 * a * b / 2 * a;
Write('x = ', x : 0 : 2);
Readln;
End.
4 мегабайта? если 20 мегабайт =75 секунд, то за 15 секунд 4 мегабайта
20мб/75сек*15сек=4мб
X : = 4 + 8 * 3 ; - то есть x=4+8*3 = 4+24 = 28
y : = ( x mod 10 ) + 15; // mod 10 - остаток от деления на 10. y = (28 mod 10)+15 = 8+15 = 23
<span>x : = ( y div 10 ) + 3 // div - целочисленное деление, (y div 10) + 3 = (28 div 10) + 3 = 2+3 = 5
Сумма переменных равна 23+5 = 28</span>