Как правило, при перегреве происходит троттлинг у процессоров Intel, или даже появляется "экран смерти". после остывания комп запускается вновь.
AMD. при отсутствии термопасты и должного охлаждения.
Var
k,x:integer;
Begin
readln(x);
k:=2*x;
writeln('2*x = ',k);
k:=3-(5*x);
writeln('3-(5*x)= ',k);
k:=2+x-6;
writeln('2+x-6=',k);
<span>End.</span>
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),0,5);
Writeln('Массив:'); a.Println;
var k:=a.Pairwise.Where(t->t[0]=t[1]).Count;
if k=0 then Writeln('Нет')
else Writeln('Есть: ',k)
end.
<u>Примеры</u>
n= 6
Массив:
1 3 4 0 5 4
Нет
n= 8
Массив:
1 1 0 4 5 0 0 5
Есть: 2
begin
var m := 3;
var n := 3;
var a := MatrRandom(m, n, 0, 9); a.Println;
var b := new integer[m];
for var i := 0 to m - 1 do
b[i] := a.Row(i).Sum;
b.Println;
var c := new integer[n];
for var j := 0 to n - 1 do
c[j] := a.Col(j).Min;
c.Println;
end.