Просто сделать таблицу перечисления цветов Если всего 16 цветов, то это обычно кодировка YRGB, например 1110b=14 - яркий жёлтый цвет
Код Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 program z1; var e : integer; a, b, d: string; begin writeln('Введите код и получите цвет'); ... a:= 'Красный'; b:= 'Белый'; d:= 'Голубой'; ... begin readln(e); if (e=0) then writeln(a); if (e=1) then writeln(b); if (e=2) then writeln(d); end; end.
Если всего 16 цветов, то это обычно кодировка YRGB, например 1110b=14 - яркий жёлтый цвет
Код Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 program z1; var e : integer; a, b, d: string; begin writeln('Введите код и получите цвет'); ... a:= 'Красный'; b:= 'Белый'; d:= 'Голубой'; ... begin readln(e); if (e=0) then writeln(a); if (e=1) then writeln(b); if (e=2) then writeln(d); end; end.