В модуле CRT есть процедура, которая устанавливает цвет текста: TextColor(Цвет)
В качестве цвета служат числа от 0 до 15, либо константы (Green, Red и т.п.)
Пример:
uses crt;
begin
TextColor(LightGreen);
writeln('Цветной текст')
<span>end.</span>
Const n=10;
Var a: array [1..n] of integer;
i,min: integer;
Begin
For i:=1 to n do
a[i]:=Random(21)-10;
writeln ('Исходный массив: ');
for i:=1 to n do
write (a[i],' ');
writeln;
min:=a[1];
for i:=2 to n do
if a[i]<min then
min:=a[i];
writeln ('Минимальный элемент = ',min);
for i:=1 to n do
if a[i]<0 then
a[i]:=a[i]*min;
writeln ('Преобразованный массив:');
for i:=1 to n do
write (a[i], ' ');
end.
Будет 29, так как значение полностью скопируется
Привет)вот ответ)Спасибо не забудь!
1+2+3-4+5-6=1
1+2+3+4/5+6-7=1
<span>1+2+3-4+5-6+7/8=1</span>
Вопрос поставлен некорректно, поэтому и ответ такой.
Если говорить об информации содержащейся в письме (о его смысловой нагрузке), то её объём не зависит от количества знаков в алфавите. А если речь идёт об объёме информации, который потребовался для записи сообщения, то тогда другое дело.
У Мульти для записи одного символа используется 5 бит (2^5=32), а у Пульти 6 бит (2^6=64). Значит сообщение Мульти было записано с помощью 80*5=400 бит, а сообщение Пульти с помощью 70*6=420 бит.
Значит сообщение Пульти больше сообщения Мульти на 20 бит.