writeln('Первое число переместили в конец: ',abc);
end.
PascalABC 3.4.2
migreen
20.11.2020
У вас есть число 137 если вам надо перевести его в какую-нибудь систему счисления, то нужно делить это число на номер системы, так если нужно перевести число 137 в ДВОичную ,то делим на 2 до тех пор, пока остатотк от деления не равен 1.(если в ТРОичную то на 3 и т.д.). начнём: 137 / 2 = 68 выписываем остаток (1) 68 / 2 = 34 выписываем остаток (0) 34 / 2 = 17 выписываем остаток (0) 17 / 2 = 8 выписываем остаток (1) 8 / 2 = 4 выписываем остаток (0) 4 / 2 = 2 выписываем остаток (0) 2 / 2 = 1 <== на этой единице заканчиваем деление, далее снизу вверх выписываем получившееся число : 001001; ответ: 001001
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Кому не сложно Даны четыре целых числа, записанных в шестнадцатеричной системе:А8, АВ, В5, СА. Сколько среди них чисел, больших, чем 265 8?
program raf105;
var abc,a,b,c: integer;
begin
write('Введите трёхзначное число: ');
readln(abc);
a:= abc div 100;
b:= (abc div 10) mod 10;
c:= abc mod 10;
abc:= c*100 + b*10 + a;
writeln('Число наоборот: ',abc);
end.
2.program raf105;
var abc,a,b,c: integer;
begin
write('Введите трёхзначное число: ');
readln(abc);
a:= abc div 100;
b:= (abc div 10) mod 10;
c:= abc mod 10;
abc:= b*100 + c*10 + a;
writeln('Первое число переместили в конец: ',abc);
end.
PascalABC 3.4.2