1985/2 = 992 (остаток 1)
992/2 = 496 (0)
496/2 = 248 (0)
248/2 = 124 (0)
124/2 = 62 (0)
62/2 = 31 (0)
31/2 = 15 (1)
15/2 = 7 (1)
7/2 = 3 (1)
3/2 = 1 (1)
Записываем в обратном порядке.
11111000001(2)
А -1985 нужно инвертировать полученный результат и дописать единицу в конце.
Количество цветов n = 2^i = 2^6 = 64
38.89 получается 38.9,а 37.56 получается 37.6 их сумма 76.5
Var i, N, sum: integer;
begin
sum := 0;
readln (N);
for i := 1 to N do sum := sum + i;
writeln (sum);
<span>end.</span>
<em>Как говорится, это вам не С++ - тут все очень быстро и коротко ))))
// PascalABC.NET 3.3, сборка 1531 от 30.08.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
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.
<u>Пример</u>
Введите в каждой строке фамилию, пробел, время
1: Иванов 10.3
2: Петров 9.9
3: Уточкин 10.1
4: *
(Петров,9.9)