Алгоритм вычисления значения функции F(n), где n – натуральное число, задан следующими соотношениями: F(1) = 8 F(n) = F(n–1) * (n-1), при n >1. Чему равно значение функции F(6)?

1.
var x,y:integer;
begin
write('x = ');
readln(x);
if x>0 
 then y:=1
 else if x=0 then y:=0 else y:=-1;
writeln('y = ',y);
end.

Пример:
x = -5
y = -1

2.
var a,b,c,x1,x2,d:real;
begin
writeln('Введите a, b, c:');
readln(a,b,c);
d:=b*b-4*a*c;
if d>0
 then begin
      x1:=(-b+sqrt(d))/(2*a);
      x2:=(-b-sqrt(d))/(2*a);
      writeln('x1 = ',x1,' x2 = ',x2);
      end
  else if d=0 then begin
                   x1:=-b/(2*a);
                   writeln('x = ',x1);
                   end
               else writeln('Корней нет');
end. 

Пример:
Введите a, b, c:
2 5 -3
x1 = 0.5 x2 = -3

3.
var a,b,c:real;
begin
writeln('Введите a, b, c:');
readln(a,b,c);
if (a<=b)and(b<=c)
 then begin
      b:=a; c:=a;
      end
 else begin
      a:=-a; b:=-b; c:=-c; 
      end;
writeln('a = ',a,' b = ',b,' c = ',c);
end. 

Пример 1:
Введите a, b, c:
2 5 9
a = 2 b = 2 c = 2

Пример 2:
Введите a, b, c:
2 9 5
a = -2 b = -9 c = -5

Во не для сайта знания ком. Так что готовься к тому что тебе его удалять, но я постараюсь ответить...

Тут два варианта есть:

Первый, это то, что у тебя плохое охлаждения, и после даже обычной работы, у тебя нагреваться процессор или видеокарта и в играх начинает тормозить. По этому при самом запуске компьютера, все части холодные и всё работает как надо. Советую поставить какую то программу для проверки температуры.

Второй вариант, это то, что ты не закрываешь до конца браузер, т.е. ты как бы его закрыл, но он у тебя до сих пор запущен. Такое часто бывает если установлены какие то расширения на него, к примеру какие то VPN или прочие программы, которые не дают полностью тебе его закрыть.