Турбо паскаль вывести таблицу сочетаний цветов - вопрос №4098950 от Nastyaninisvn 24.12.2021 04:07

Question

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

Nastyaninisvn · Answer

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;  ReadKeyend....