Const n=10;
var a:array[1..n] of integer;
s,r,i:integer;
begin
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
s:=0;
for i := 1 to n do
begin
s:=s+a[i];
r:=s/n;
end;
writeln('r=',r);
readln;
<span>end. </span>
1) х=16 (10000₂)
у=12 (1100₂)
2) 10000₂ - 1100₂ = 100₂
Ответ:Исходная цепочка: И1Э73Р
1. 1Э73Р
Э137Р
2. Э137РА
1Э73АР
Ответ:1Э73АР
3) - 1
4) - 3
5) - 2
Все просто.......
Var
A:integer;
S:real;
Begin
S:=0;
Write('A = ');ReadLn(A);
While A>0 do
Begin
S:=S+A;
A:=A-1
End;
WriteLn('S = ',S);
End.