Program n1; var S,i,n: integer; begin i:=1; S:=0; writeln('введите n: '); readln(n); while (i<=n) do begin S:=S+i; i:=i+1; end; writeln('сумма: ',S); end.
Все задачи однотипные, нужно знать понятия глубины цвета и как расчитывается объём для растрового изображения. 1.всего пикселей 128*128= 2^14(2 в 14-ой степени) так как 32 цвет, то один символ кодируется 5 битами (log2(32), если бы было 33 цвета то уже бы потребовалось 6 бит, так как 5 бы не хватило). Нам нужно в килобайтах значит нужно разделить на 2^13 (т.к. в 1 кбайте 2^13 бит)
var S,i,n: integer;
begin
i:=1;
S:=0;
writeln('введите n: ');
readln(n);
while (i<=n) do
begin
S:=S+i;
i:=i+1;
end;
writeln('сумма: ',S);
end.