Системы счисления 1) Перевести число из двоичной системы в системы с основанием 8, 10, 16.
2) Перевести число из восьмеричной системы в системы с основанием 2, 10, 16.
3) Перевести число из десятичной системы в системы с основанием 2, 8, 16.
4) Перевести число из шестнадцатеричной системы в системы с основанием 2, 8, 10.
5) Сложить двоичные числа.
6) Сложить восьмеричные числа.
7) Сложить шестнадцатеричные числа.
8) Вычесть двоичные числа.
9) Вычесть восьмеричные числа.
10) Вычесть шестнадцатеричные числа.
1) 11000111 2 2) 160 8 3) 194 4) 7F 16
5) 11001010 2 6) 7321 8 7) F97 16 8) 1110100 2 9) 2071 8 10) 42D 16
+ 10111010 2 + 5725 8 + C55 16 - 11001111 2 - 7543 8 - ECD1 6
uses crt;
var a,b:real;
Begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if (a<0) and (b<0)
then
Begin
a:=a+2;
b:=b+2;
writeln('a = ',a);
writeln('b = ',b);
end
else
if (a>0) and (b<0)
then
writeln('a*b = ',a*b)
else
if (a<0) and (b>0)
then
writeln('b-a = ', b-a)
else writeln('Ни одно условие не выполняется');
readln;
end.