Находим количество символов: 1024×64×64=4194304 символов — байт (т.к. 1 символ=1 байт
В 1 Мбайте — 1048576 байт
Следовательно: 4194304/1048576=4 Мбайта
Var
s,i: integer;
begin
s:=0;
for i:=0 to 50 do
if i mod 6 =0
then s:=s+i;
writeln ('S = ',s)
end.
-----------------------------
S = 216
0...125 - 126 возможных значений.
2^6 < 126 < 2^7
На запись результата каждого измерения требуется 7 бит.
Информационный объём результатов наблюдений: 7•70 = 490 бит.
В модуле CRT есть процедура, которая устанавливает цвет текста: TextColor(Цвет)
В качестве цвета служат числа от 0 до 15, либо константы (Green, Red и т.п.)
Пример:
uses crt;
begin
TextColor(LightGreen);
writeln('Цветной текст')
<span>end.</span>