Напиши функцию repl(value), которая получает на вход значение value - глобальную переменную в виде списка чисел, и меняет каждое значение этого списка умножая на два. Функция должна менять сам список, и ничего не возвращать.
В качестве ответа нужно написать только функцию, в ответе вызывать её не нужно. При проверке функция будет вызываться так, как описано в Sample Input, а результат вызова показан в соответствующем Питон!
2. Рассчитать объём видеопамяти для хранения одной картинки экрана, если разрешающая точек, глубина цвета 16 бит/пиксель.
3.Цветное изображение имеет размер 10*10 точек. Используется палитра 256 цветов. Найти объём видеопамяти, хранящей это изображение.
4.Файл, содержащий чёрно- белый квадратный рисунок, имеет объём 200 байт. Оцените, из скольких точек он состоит.
5. 256-цветный рисунок содержит 1 Кбайт информации. Из какого количества точек он состоит?
6.Сканируется цветное изображение размером 10*10 см. Разрешающая сканера 600 dpi. Глубина цвета 32 бита/точку. Какой информационный объём будет иметь полученный графический файл?
7.На диске книга занимает 20Мб. Всего в книге 880 страниц. Часть страниц – это цветные иллюстрации в 4-ной палитре и в формате 320*640 пикселей (одна иллюстрация – одна страница). Количество страниц с текстом на 80 больше, чем с иллюстрациями. Сколько символов на одной странице с текстом?
Внимание! Если программа не работает, обновите версию!
begin
var st1:=new Stack<integer>;
foreach var t in Seq(2,13,20,18,1) do st1.Push(t);
Write('Стек1: '); st1.Println;
var st2:=new Stack<integer>;
foreach var t in Seq(9,11,10,8,4) do st2.Push(t);
Write('Стек2: '); st2.Println;
var st3:=new Stack<integer>;
while st1.Count+st2.Count>0 do begin
while st1.Count>0 do begin
var k:=st1.Pop;
if k.IsEven then begin
st3.Push(k);
break
end
end;
while st2.Count>0 do begin
var k:=st2.Pop;
if k.IsOdd then begin
st3.Push(k);
break
end
end
end;
Write('Стек3: '); st3.Println;
end.