В модуле CRT есть процедура, которая устанавливает цвет текста: TextColor(Цвет)
В качестве цвета служат числа от 0 до 15, либо константы (Green, Red и т.п.)
Пример:
uses crt;
begin
TextColor(LightGreen);
writeln('Цветной текст')
<span>end.</span>
Ввод: x ^ y С/П.
<-> П0 1 + + П1 ИП0 / 1/x П2
ИП1 С/П ИП2 С/П ИП0 С/П
90(10) = 5A(16) = 0101 1010(2) в восьмибитном представлении
-55(10) = -37(16) = -0011 0111(2) в прямом коде. Для хранения отрицательных чисел используется модифицированный обратный код.
Обратный код получается инверсией всех битов.
-0011 0111(2) = 1100 1000(2) в восьмибитном представлении (обратный код)
Модифицированный код получается из обратного путем прибавления единицы в младшем (левом) разряде числа.
1100 1000(2) = 1100 1001(2) в восьмибитном представлении (модифицированный обратный код)
1100 1001(2) = С9(16) = 0хС9
5600байт
а по другому 5 гб 600гг ответ буква а
Program obnulenie;
var a:array[1..100,1..100] of integer;
i,j,n:integer;
begin
writeln('Введите размер квадратной матрицы:');
readln(n);
writeln('Введите матрицу:');
for i:=1 to n do
for j:=1 to n do
begin
read(a[i,j]);
if j>i then a[i,j]:=0;
end;
writeln('Измененная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
<span>end.</span>