89 2
1 44 2
0 22 2
0 11 2
1 5 2
1 2 2
0 1
1011001
Недостатки : глушение сигнала ( как естественное так и с помощью устройств )
преимущества : простота в использовании и обслуживании , без проводов
var a,a1,a2,a3 : integer;
begin
readln(a);
a1:=a div 100;
a2:=(a mod 100) div 10;
a3:=(a mod 100) mod 10;
writeln(a1+a2+a3);
end.
а - само число, а1-число сотен, а2-число десятков, а3-число единиц
Const n = 10;
Var m : array[1..n] of Integer;
i : Integer;
Begin
Randomize;
For i:=1 to n do
Begin
m[i]:=Random(50);
Write(m[i]:3);
end;
Writeln;
For i:=1 to n do
Begin
If not Odd(m[i]) then m[i]:=m[i]*2;
Write(m[i]:3);
end;
Writeln;
end.