В этой программе создан новый тип для А, В...
стандартный символьный тип для у, т.е. для одного какого-то символа
целочисленный в пределах -32 тыс. + 32 тыс.
234 МБ это 234000 в бiтах
Дорожные знаки называют - международным языком улицы! гос.стандартом определены 4 группы дорожных знаков - предупреждающие, запрещающие, предписывающие и указательные!)
7. 2 цвета кодируются глубиной цвета в 1 бит, т.к. 2 = 2^1. Значит рисунуко 184*2048 займет 184*2048*1 = 376832 бит = 47104 байт = 46 кбайт (8 бит = 1 байт, 1 кбайт = 1024 байт)
8. В рисунке 256*208 всего 256*208 = 53248 пикселей.
13 кбайт = 13312 байт = 106496 бит
Получаем глубину цвета, поделив информационный объем на количество пикселей: 106496/53248 = 2 бита на цвет.
С помощью 2-х бит можно закодировать 2^2 = 4 цвета.
чтение из файла обычно пишется readln(f,s) где f имя файловой переменной так что скорей всего нужно вставить
<span>readln(input,s);s:=s+' ';f:=0;</span>
<span>for i:= 1 to length(s) do begin</span>
<span>if s[i]<>' ' then r:=r+s[i];</span>
<span>if s[i]=' ' then begin k:=k+1;d[k]:=r;r:='';end;</span>
<span>end;</span>
<span>readln(input,n);</span>
<span>for i:= 1 to n do begin</span>
<span>readln(input,sait[i]);</span>
<span>readln(input,tegs[i]);</span>
<span>readln(input,pop[i]);</span>
соответственно и запись в файл write(f,s)