Program test;
const N = 10;
var i:integer;
a,b,c:array [1..N] of integer;
begin
for i:=1 to N do
begin
a[i]:=random(1,100);//если хочеш ввести с клавы напиши вместо строки readln(a[i]);
b[i]:=random(1,100);//если хочеш ввести с клавы напиши вместо строки readln(b[i]);
end;
for i:=1 to N do
beginif a[i]>b[i] then c[i]:=a[i]-b[i]
else c[i]:=b[i]-a[i];
write(c[i],' ');
end;
end.
16 =
следовательно 4 бита на символ
4*32 =128 бит(информации несёт)
1.+++-
2.++++
3.++++
4.+---
5.+--+
6.----
Program n1;
var sum,i: integer;
begin
sum:=0;
for i:=1 to 5 do sum:=sum+123*i;
write(sum);
end.