Массивы Ввести с клавиатуры массив, состоящий из N (также с клавиатуры) элементов. Определить, есть ли в массиве соседние элементы, т.е. элементы, значение которых отличается не более, чем на 1.
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018 Внимание! Если программа не работает, обновите версию!
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.
1.Рассчитать объём видеопамяти для хранения одной картинки экрана, если разрешающая точек, глубина цвета 24 бита/пиксель.
2. Рассчитать объём видеопамяти для хранения одной картинки экрана, если разрешающая точек, глубина цвета 16 бит/пиксель.
3.Цветное изображение имеет размер 10*10 точек. Используется палитра 256 цветов. Найти объём видеопамяти, хранящей это изображение.
4.Файл, содержащий чёрно- белый квадратный рисунок, имеет объём 200 байт. Оцените, из скольких точек он состоит.
5. 256-цветный рисунок содержит 1 Кбайт информации. Из какого количества точек он состоит?
6.Сканируется цветное изображение размером 10*10 см. Разрешающая сканера 600 dpi. Глубина цвета 32 бита/точку. Какой информационный объём будет иметь полученный графический файл?
7.На диске книга занимает 20Мб. Всего в книге 880 страниц. Часть страниц – это цветные иллюстрации в 4-ной палитре и в формате 320*640 пикселей (одна иллюстрация – одна страница). Количество страниц с текстом на 80 больше, чем с иллюстрациями. Сколько символов на одной странице с текстом?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program mass2;
Const n=10;
Var A:array[1..n] of integer;
i,x:integer;
Begin
For i:=1 to n do
Begin
A[i]:=random(4);
write(A[i]:3);
End;
for i:=1 to N do
Begin
if a[i]=a[i+1] then
writeln('Есть')
else writeln('Не нашли');
end;
End.