Здравствуйте! Кто пользуется saima-telekom в КР? Скажите его стоит подключать?

259

413

Посмотреть ответы 1

Ответы на вопрос:

Scenic1

Информатика

4,8(96 оценок)

Var n, k, d2, d1, d0: integer; e2, e1, e0: integer; procedure getdigits(m: integer; var d2, d1, d0: integer); {перевод числа [100..fff]в 16-ю систему счисления} begin d0 : = m mod 16; m : = m div 16; d1 : = m mod 16; d2 : = m div 16 end; begin n : = 0; {рассматриваем шестнадцатиричные числа от 100 до 7ff} for k : = $100 to $7ff do begin getdigits(k, d2, d1, d0); if (d2 = 2) or (d1 = 2) or (d0 = 2) then begin getdigits(2 * k, e2, e1, e0); if d0 + d1 + d2 = e0 + e1 + e2 then n : = n + 1 end end; writeln('n=', n) end. тестовое решение: n=23