Предмет: Информатика,
автор: kamiloxcoid13
Прога на паскале
В каждой строке файла записано три числа, каждое из которых находится в интервале[0,255]. Эти числа обозначают красную,зелёную и синюю составляющие цвета в цветовой модели RGB. Запишите в другой файл полные коды заданных цветов в виде целых чисел(код цвета= 255•255•R+255•G+B).
Ответы
Автор ответа:
1
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadAllText('input.txt').ToIntegers; // a[0]=R,.. a[2]=B
WriteAllText('output.txt',(a[0]*255*255+a[1]*256+a[2]).ToString)
end.
Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadAllText('input.txt').ToIntegers; // a[0]=R,.. a[2]=B
WriteAllText('output.txt',(a[0]*255*255+a[1]*256+a[2]).ToString)
end.
Аноним:
Файл должен находиться в одной директории с файлом программы, либо надо указать полный путь по типу 'C:\MyFile\input.txt'
Похожие вопросы
Предмет: Музыка,
автор: alinaem2008
Предмет: Химия,
автор: mariadorofeeva431
Предмет: Математика,
автор: asalabdulakimova
Предмет: Математика,
автор: Вясеслав
Предмет: Литература,
автор: Аноним