Произвести действия над числами в различных системах счисления: 1. 101,1012+10,012
2. 101,1012–10,012
3. 11,012*0,12
4. С3,816+3A,D16
5. С3,816–3A,D16
6. 3,F16*6,A16
Выполнить проверку полученных результатов путем их перевода в десятичную систему счисления.
USES CRT;
VAR A:array[1..100] of Longint;
s:integer;
x,i:Longint;
BEGIN
CLRSCR;
Repeat
Writeln('Введите 7-ми значное число');
Readln(x);
i:=x;
s:=0;
while i>0 do
begin
i:=i div 10;
s:=s+1;
end;
if s > 7 then Writeln('Вы ввели число больше');
if s < 7 then Writeln('Вы ввели число меньше');
Writeln;
until s=7;
for i:=1 to 7 do
begin
A[i]:=x mod 10;
x:=x div 10;
end;
for i:=1 to 7 do
Write(A[i],' ');
READLN;
END.