256-цвет ето 8бит
2-цвета ето 1бит
8-1=7бит убрали
7*1024=7168байта
7168*8=57344бита
х*8-х*1=57344 (Где х-количество пикселей)
57344/7=х
х=8192 пикселей
8192*8=65536
65536/8/1024=8Кб
Ты издеваешься? Думаешь тебе за 5 баллов напишут программу???
№1 var s,x,n,i:integer;begins:=0;write('Введите количество чисел: ');readln(n);writeln('Введите числа: ');for i:=1 to n dobeginreadln (x);s:=s+xend;writeln('Сумма чисел равна ',s);end.
№2 var n,i,p:integer;beginp:=1;write('Введите количество чисел: ');readln(n);for i:=1 to n dop:=p*i;writeln('Произведение чисел равнo ',p);end.
Подробнее - на Znanija.com -
znanija.com/task/14923730#readmore
Var
k, N: Integer;
begin
Write("N = ");
ReadLn(N);
k:=1;
Repeat
Dec(N);
k:=k * 2;
WriteLn(k - 1);
Until (N < 0)
end.