Переводим в 2-ную систему. Для этого делим всё время на 2 с остатком:
6 / 2 = 3 (остаток 0)
3 / 2 = 1 (остаток 1)
Выписываем последний результат деления (1) и все остатки, начиная с конца:
1 1 0
Таким образом:
Аналогично:
Умножаем: 110 х 100 = 11000 (тут действует такое же правило, что и для обычных десятичных чисел: чтобы умножить на 10, 100, 1000, 10000 и т.д., достаточно просто дописать справа столько нулей, сколько их есть в этом множителе).
Ответ:
разобраться во внутренем устройстве
Var
A: integer;
Begin
Write('Введите трёхзначное число: ');ReadLn(A);
A := (A mod 10)*100 + (A div 10);
WriteLn(A);
End.
Var x,y,b:real;
begin
writeln ('Введи 2 вещественных числа');
readln (x,y);
b:=x;
x:=y;
y:=b;
writeln (x,y);
realdn;
end.
<span>1. *@
2. @~*
3.*~
4.*
5.~
Ответ: 5 различных букв</span>