Var i,n,m,sum:integer;r:real;
Begin
Randomize;
write('Введите количество целых десятичных чисел');
Readln(n);
for i:=1 to n do begin
m:=random(100)-50;
write(m:4);sum:= sum + m;end;
writeln;
r:= sum/n;write('среднее значение ', n,' целых десятичных чисел ',r:8:4);<span>end.</span>
1) 11011-110= 110
2) 10001-1110= 10
3) 100010-100= 11010
4) 101011- 1111= 11100
5) 1001*101=101101
6) 1001*11=11011
7) 1001+11=1100
8) 110+110=1100
9) 1100111+10011=1111010
10) 111000-11101=11011
11) 10011-10010=1
12) 110101*11101=10011011001
13) 1110101*11101=11010100001
14) 11100010-1110001=1110001
Исполнитель Чертёжник, PascalABC.NET 3.2
uses Drawman;
procedure Hexagon();
begin
PenDown;
OnVector(2, 1);
OnVector(0, 2);
OnVector(-2, 1);
OnVector(-2, -1);
OnVector(0, -2);
OnVector(2, -1);
PenUp;
end;
begin
Field(15, 7);
ToPoint(3, 1);
Hexagon();
OnVector(2, 0);
Hexagon();
OnVector(2, 0);
Hexagon();
end.