Program z3; Var y: array [1..15] of real; g: array [1..20] of real; i,d: integer; sum, sum_2: real;Begin writeln('Введите оплату труда за день'); read(d); for i := 1 to 15 do y[i] := random (30) * d * 0.8; for i:=1 to 20 do g[i] := random (30) * d * 0.8; for i:=1 to 15 do begin writeln('Сотрудник y_',i,' - ',y[i]); sum:= sum + y[i]; end; writeln; writeln('Сумма отдела y - ', sum); writeln; for i:=1 to 20 do begin writeln('Сотрудник g_',i,' - ',g[i]); sum_2:= sum_2 + g[i]; end; writeln; writeln('Сумма отдела g - ', sum_2); writeln; End.
Т.к мы работаем в 8 разрядности, смотрим чтобы в двоичном числе было 8 элеентов, если их меньше то добавляем нули впереди(слева)
1)
Для получения обратного кода просто меняем 1 на 0, а 0 на 1
<span>00100110=11011001
</span>2)
Для получение дополнительного кода сначала находим обратный код
<span>00100101=11011010
</span>Затем к обратному коду прибавляем 1
11011010+1=11011011
Program klas;
uses crt;
var
n,p,i,r:integer;
begin
writeln('Kolichestvo 11 klassov :');
read(n);
for i:=1 to n do
begin
writeln('Vvedite kol-vo chelovek v ',i);
read(p);
r:=r+p;
end;
Writeln('Vsego v ',n,' klassah ',r,' chelovek');
end.
<span>Al:=sqr (a) ⇒ integer
A2:=16 mod 5 ⇒ integer
A3:=sqr (b) ⇒ real
A4:=2.5*a ⇒real
A5:=5 div 1/3 ⇒ real
A6:=a-A1 ⇒ integer
A7:a>b ⇒ boolean
A8:=A2/b
</span>⇒ real
Компьютер -5
Телефон-3
Часы - 7