1)Рисунок размером 64 на 272 пикселей закодирован в режиме истинного цвета.Сколько килобайт занимает в памяти рисунок без учета сжатия?
2)Рисунок размером 768 на 160 пикселей занимает в памяти 75 Кбайт(без учета сжатия). Найдите максимально возможное количество цветов в палитре изображения. 3)Звук длительностью 1 минута оцифрован с частотой 22000 Гц. Разрядность кодирования - 24 бита. Определите размер полученного файла в Мбайтах. Результат округлите до двух цифр после запятой.
{вот правильное решение я там забыл то чтобы подсчитывать число букв a} <span>var </span><span><span> s</span>: string;</span><span><span> i</span>, id, len, max, count,q: byte;</span>
begin
<span> q:=0; readln(s);</span><span><span> len </span>:= length(s);</span><span><span> max </span>:= 0;</span><span><span> id </span>:= 0;</span> <span><span> count </span>:= 0;</span><span> for i:=1 to len do </span><span> if s[i] <> ' ' then</span><span><span> count </span>:= count + 1</span><span> else begin</span><span> if count > max then begin</span><span><span> max
</span>:= count;</span><span><span> id </span>:= i - count;</span><span> end;</span><span><span> count </span>:= 0</span><span> end;</span>
<span> if count > max then begin </span><span><span> max </span>:= count;</span><span><span> id </span>:= i - count;</span><span> end<span>; </span></span>
<span> for i:=id to id+max do</span><span> if s[i] = 'a' then begin</span><span><span> q:=q+1; s</span>[i] := 'b';</span>
<span> writeln(s,' ' , q);</span> end; <span>end<span>.
Program n1; var a,c,b,num: integer; begin write('введите число: '); readln(num); a:= round(num div 100); c:=round(num mod 10); b:=round(((num mod 100)-c)/10); writeln('сотни: ',a); writeln('десятки: ',b); writeln('единицы: ',c); end.
Program konf; var a, b, summ: real; begin a := 1.2; readln(b); while a < 2 do begin summ := a * b; writeln(summ, ' za ', a); a := a + 0.2 end; <span>end.</span>