У вас есть число 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
Как говорится, это вам не С++ - тут все очень быстро и коротко
// PascalABC.NET 3.3, сборка 1531 от 30.08.2017 // Внимание! Если программа не работает, обновите версию!
begin var L:=new List<(string,real)>; // это не решение задачи, это ввод данных Writeln('Введите в каждой строке фамилию, пробел, время'); var i:=1; repeat var s:=ReadlnString(i+': '); if s[1]='*' then break; var w:=s.ToWords; L.Add(Rec(w[0],real.Parse(w[1]))); i+=1; until false; // а теперь само решение Writeln(L.MinBy(x->x[1])) end.
Пример Введите в каждой строке фамилию, пробел, время 1: Иванов 10.3 2: Петров 9.9 3: Уточкин 10.1 4: * (Петров,9.9)
если вам надо перевести его в какую-нибудь систему счисления, то нужно делить это число на номер системы, так если нужно перевести число 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