Сколько кб занимает растровый рисунок размером 256 на 512 пикселей, если количество цветов в рисунке 32

256*512 = 131072 пикселей всего.
32 значения можно закодировать с битов
итого 131072*5 = 655360 бит = 81920 байт = 80 Кбайт

#include <iostream>

using namespace std;

int main()

{

   int number;

   int positive = 0;

   int negative = 0;

   int amount = 0;

   cin >> number;

   while (number != 0)

   {

       amount += number;

       if (number > 0)

       {

           positive++;

       }

       else if (number < 0)

       {

           negative++;

       }

       cin >> number;

   }

   cout << amount << endl << positive - negative;

}

Объяснение:

#include <iostream> // Библиотека ввода - вывода

using namespace std; // Пространство имён

int main()

{

   int number; // Целочисленная переменная для хранения вводимых с клавиатуры чисел

   int positive = 0; // Целочисленная переменная для хранения количества положительных чисел

   int negative = 0; // Целочисленная переменная для хранения количества отрицательных чисел

   int amount = 0; // Целочисленная переменная для хранения суммы чисел последовательности

   cin >> number; // Вводим число с клавиатуры

   while (number != 0) // Пока значение переменной number ≠ 0

   {

       amount += number; // Суммируем

       if (number > 0) // Если значение переменной number - положительное

       {

           positive++; // Добавляем единицу

       }

       else if (number < 0) // Если значение переменной number - отрицательное

       {

           negative++; // Добавляем единицу

       }

       cin >> number; // Вводим число с клавиатуры

   }

   cout << amount << endl << positive - negative; // Выводим сумму чисел последовательности и разность между количеством положительных и отрицательных

}

// PascalABC.NET 3.6.3

uses School;

function Divizors(n: integer): List<integer>;

begin

 var L := new List<integer>;

 L.Add(1);

 L.Add(n);

 if n > 3 then

   begin

   var k := 2;

   while (k * k <= n) and (k < 46341) do

   begin

     if n mod k = 0 then

     begin

       var t := n div k;

       L.Add(k);

       if k < t then L.Add(t)

       else break

     end;  

     Inc(k)

   end;

   L.Sort;

 end;

 Result := L

end;

begin

 // 1

 if ReadInteger.IsPrime then Println('YES')

 else Println('NO');

 // 2

 ReadInteger.Factorize.First.Println;

 // 3

 var a := Divizors(ReadInteger);

 Print(a.Count, a.Sum)

end.