У вас есть число 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
Var M, tons, kilos, grams: integer; begin write('Введите массу: '); read(M); // чтобы найти кол-во тонн, разделим нацело введенную массу // на 1000000 tons := M div 1000000; // div - деление нацело // чтобы найти кол-во килограмм, сначала возьмем остаток // деления на 100000, затем полученное число разделим // нацело на 1000. kilos := (M mod 100000) div 1000; // mod - остаток от деления // граммы - последние 3 цифры введенного числа grams := M mod 1000; writeln(tons, ' т. ', kilos, ' кг ', grams, ' г.'); end.
если вам надо перевести его в какую-нибудь систему счисления, то нужно делить это число на номер системы, так если нужно перевести число 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
M, tons, kilos, grams: integer;
begin
write('Введите массу: ');
read(M);
// чтобы найти кол-во тонн, разделим нацело введенную массу
// на 1000000
tons := M div 1000000; // div - деление нацело
// чтобы найти кол-во килограмм, сначала возьмем остаток
// деления на 100000, затем полученное число разделим
// нацело на 1000.
kilos := (M mod 100000) div 1000; // mod - остаток от деления
// граммы - последние 3 цифры введенного числа
grams := M mod 1000;
writeln(tons, ' т. ', kilos, ' кг ', grams, ' г.');
end.