Чтобы выполнять действия в двоичной системе необходимо числа в эту самую двоичную систему перевести:
21=10101
13=1101
9=1001
3=11
40=101000
4=100
Теперь собственно сами действия:
а)
10101
+ 1101
100010
б)
10101
- 1101
1000
в)
1001
* 11
1001
+1001
11011
г)
101000 |100
-100 | 1010
100
-100
0
а)100010
б)1000
в)11011
г)1010
1)
var
a, b: integer;
begin
writeln('Введите a, b: '); readln(a, b);
if(b mod a = 0) then writeln('Является делителем')
else writeln('Не является делителем');
end.
2)
var
x, y, tmp: real;
begin
repeat
writeln('Введите x, y: '); readln(x, y);
until(x <> y);
if(x > y) then begin
tmp := y;
y := (x + y) / 2;
x := 2*(x * tmp);
writeln('Большее - X = ', x, ' Меньшее - Y = ', y);
end else begin
tmp := x;
x := (x + y) / 2;
y := 2*(tmp * y);
writeln('Большее - Y = ', y, ' Меньшее - X = ', x);
end;
end.
const Radian = 57.295779513; //Сколько градусов в одном радиане
var
a, b, c: real; //Стороны, лежащие против углов A, B и C соответственно
begin
writeln('Введите 3 стороны треугольника в следующем порядке: a, b, c');
readln(a, b, c);
if (sqr(a) = sqr(b) + sqr(c)) or (sqr(b) = sqr(a) + sqr(c)) or (sqr(c) = sqr(a) + sqr(b)) then writeln('Треугольник ABC - прямоугольный') {Если хотя бы для одной из сторон выполняется теорема Пифагора, то данный треугольник прямоугольный}
else writeln('Угол C равен: ', arccos((sqr(a) + sqr(b) - sqr(c)) / (2 * a * b)) * Radian, ' градусов'); {Выражаем из теоремы косинусов косинус угла C, берем arccos от него и умножаем получившееся значение на количество градусов в радиане, чтобы получить ответ в градусах}
end.
Пользоваться компилятором Pascal ABC.Net, потому что это единственный компилятор из всех известных мне, который поддерживает функцию arccos.
Если будут вопросы, спрашивай.
а)
10101+1101=100010
10101
1101
100010
б)
10101-1101=1000
10101
1101
1000
в)
1001*11=11011
1001
11
1001
1001
11011
г)
101000 /100=1010