1. что такое центральный процессор 2. правила поведения в кабинете информатики 3. кто изобрёл 1 компьютер 4.что может произойти с человеком если его ударит ток 220вв5.загрузки процессора ! ​

Объяснение:1.Центра́льный проце́ссор- электронный блок, либо интегральная схема исполняющая машинные инструкции , главная часть аппаратного обеспечения компьютера. Если просто говоря главная штука в кампе.

2.К работе в компьютерном классе допускаются лица данную инструкцию по технике безопасности и правилам поведения, медицинский осмотр и не имеющие противопоказаний по состоянию здоровья;

Работа учащихся в компьютерном классе разрешается только в присутствии преподавателя;

Во время занятий посторонние лица могут находиться в классе только с разрешения преподавателя;

Во время перемен между уроками проводится обязательное проветривание компьютерного кабинета с обязательным выходом учащихся из класса;

3.Джон Мокли, американский физик и инженер.

4.Можно попасть в больницу с ожогами либо умереть.

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

Var x, i, h1, h2, h3, h4, h5, h6, s1, s2: integer;
begin
       readln (x);
       h1 := x div 100000;
       h2 := x mod 100000 div 10000; 
       h3 := x mod 10000 div 1000; 
       h4 := x mod 1000 div 100; 
       h5 := x mod 100 div 10; 
       h6 := x mod 10; 
       s1 := h1 + h2 + h3; 
       s2 := h4 + h5 + h6; 
       if (s1 = s2) then writeln('Счастливый') 
                      else writeln('Несчастный:)');
        readln;
end.

Вот, ошибка в целочисленном делении) Советую такое на листочке расписывать: 123321 и обводить что нужно взять, что в каком порядке откидывать...)

1)
var a,b,a1,b1:real;
var s,s1:real;
begin
WriteLn('Введите все катеты через пробел:');
Read(a,b,a1,b1);
s:=a/2*b;
s1:=a1/2*b1;
WriteLn(s);
WriteLn(s1);
if s = s1 then
WriteLn('Треугольники равновелики')
else if s>s1 then
WriteLn('Площадь первого треугольника больше на '+(s-s1))
else
WriteLn('Площадь второго треугольника больше на '+(s1-s));
end.

2)
var a,b:Integer;
var arr:array of char;
begin
arr:=ReadString().ToCharArray();
for var i:= 1 to 6 do
if(i<4) then
a+= strtoint(arr[i-1])
else
b+= strtoint(arr[i-1]);
if a=b then
WriteLn('Билет счастливый')
else
WriteLn('Билет не счастливый');
end.