Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Помогите.
Турбо Паскаль
Вывести таблицу сочетаний цветов фона и текста (textcolor и textbackgroundcolor)
Красный текст красный фон - Красный текст оранжевый фон - Красный текст желтый фон - ...
Оранжевый текст красный фон - Оранжевый текст оранжевый фон - Оранжевый текст желтый фон - ...
... и так таблицу цветов 7 на 7, со всеми цветами радуги.

Ответ оставил Гость

Uses CRT;
var i,j:integer;
begin
  TextMode(CO80);
  for i:=0 to 15 do
  begin
    TextColor(i);
    for j:=0 to 7 do begin
      TextBackGround(j);
      Write(i:2,/,j:2, )
    end;
    Writeln
  end;
  ReadKey
end.