===== PascalABC.NET =====
begin
var n := ReadInteger('Число членов последовательности:');
var s := ReadSeqInteger('Вводите:', n)
.Where(p -> (p < 10) or (p > 50)).Sum;
Println('Сумма отобранных членов равна', s)
end.
№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
Вроде это :
<span>сбор, подготовка, передача, обработка, хранение, отображение</span>
Объем файла
1,5 мегабайта = 1,5 * 1024 * 1024 = 1 572 864 байт
умножаем на 8 бит в байте = 12 582 912 бит
разрешение картинки
1024*512 = 524 288 точек
делим объем памяти на кол-во пикселей
12 582 912 бит / 524 288 пиксель = 24 бита на пиксель
для кодирования цвета использовалось 24 бита или
24/8=3 байта информации
количество цветов определяем по формуле
2^количество бит = кол-во цветов
2^24 = 16 777 216 цветов