Здесь смешанный язык - алгоритмический.
Разберем по строкам
1. алг - говорит что будет цикл (в Паскале for)
2. нач - слишком очевидно, начало
3. цел i,n - значения переменных i и n целые
4. n:=0 - обнуляем n, мало ли в памяти есть какое-то значение для него
5. нц для i от 1 до 13 - начало цикла, который меняется на промежутке [1;13]
6. n:=(n+i)+3 - действие внутри цикла, в данном случае меняем значение n
7. кц
8. вывод n - выводим на экран последнее значение n
9. кон
Как это выглядит на Паскаль:
Var i, n: integer;
Begin
n := 0;
for i:= 1 to 13 do
n:=n+i+3;
write('n = ',n);
end.
Эта программа выведет на экран 130
можно посчитать вручную
i=1, n = n+i+3 = 0+1+3= 4
i=2, n = n+i+3 = 4+2+3= 9
и т.д. до i = 13.
_________________________
<span>1530
</span>_________________________
Var
s:string;
i,n,w:integer;
begin
writeln('Введите текст');
readln(s);
s:=s+' ';
n:=length(s);
for i:=1 to n do
if (s[i]='а') and (s[i+1]=' ') then
inc(w);
writeln('Кол-во = ',w);
<span>end.</span>
Ответ:Program few2;
Uses crt;
Var a, b, y, min: integer;
Begin
ClrScr;
Writeln('y:= min+ 2* min+ b');
Write('Значение a: ');
Readln(a);
Write('Значение b: ');
Readln(b);
If a>b then
min:=a;
If a<b then
min:=b;
y:= min+ 2* min+ b;
Begin
If a=b then
Writeln('Невозможно найти значение...')
else
Begin
Writeln('min= ', min);
Writeln('y= ', min, '+ 2* ', min, '+ ', b);
Writeln('Y= ', y);
End;
End;
Readln;
End.
Объяснение:
Ширина изображения: 6 * 256 = 1536
Высота изображения 8 * 256 = 2048
Общее количество точек в изображении 1536 * 2048 = 3 145 728
6 МБайт = 6 * 1024 * 1024 = 6 291 456
На каждую точку приходится 6 291 456 / 3 145 728 = 2 байта или 16 битов
Цвет состоит из 3 компонент (красный, зелёный, синий), поэтому на каждый цвет приходится 16 / 3 = 5 бит.
Ответ: цветовая глубина 5 бит на пиксель.
Примечание: часто используется схема, в которой на красный и синий отводится по 5 битов, а на зелёный 6, что позволяет полностью занять все 16 битов.