Помогите пожалуйста Рассчитай объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран мони
Помогите пожалуйста Рассчитай объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 720×348 и палитрой из 65536 цветов.
{вот правильное решение я там забыл то чтобы подсчитывать число букв 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>.
' For ... Next dim yi as integer dim n as integer dim z as double dim sum as double dim zi as double sum = 0 print "Введите n: " input n for yi = 1 to n if ((yi > 15) or (yi < 0)) then z = 2 else z = yi end if zi = (sqr(z)-z)*(sqr(z)-z) sum = sum + zi next print "Сумма = ", sum;
' While Wend dim yi as integer dim n as integer dim z as double dim sum as double dim zi as double sum = 0 yi = -1 print "Введите n: " input n while (yi < n) if ((yi > 15) or (yi < 0)) then z = 2 else z = yi end if zi = (sqr(z)-z)*(sqr(z)-z) sum = sum + zi yi = yi + 1 wend print "Сумма =", sum;