Вкаждой строке файла записано три числа, каждое из которых находится в интервале [0,255]. эти числа обозначают красную, зеленую и синюю составляющие цвета в цветовой модели rgb.запишите в другой файл полные коды заданных цветов в виде целых чисел в шестнадцатеричной системе счисления(цвет(128,255,255)запишется как 80ffff). (паскаль)
236
443
Ответы на вопрос:
Const sixteen: string = '0123456789abcdef'; function tenin16(x: integer): string; var s: string; begin repeat s : = sixteen[x mod 16 + 1] + s; x : = x div 16; until x = 0; if length(s) = 1 then s : = '0' + s; tenin16 : = s; end; var f1, f2: text; a1, a2, a3: byte; begin assign(f1, 'record.txt'); reset(f1); assign(f2, 'result.txt'); rewrite(f2); while not eof(f1) do begin read(f1, a1, a2, a3); writeln(f2, tenin16(a1), tenin16(a2), tenin16(a3)); end; close(f1); close(f2); end.
Популярно: Информатика
-
Neralyda21.01.2021 01:57
-
beeilne434gmailcom23.05.2020 23:04
-
kerdivar8619.06.2023 23:41
-
Imdoingfinetoday12320.12.2022 06:46
-
netunikaa30.06.2021 09:53
-
Milimili1234520.12.2021 10:53
-
MariHarutyunyan26.06.2022 05:49
-
200012011.02.2023 13:45
-
feitlol25.08.2022 19:55
-
tomas78719.01.2022 14:28