1. Размеры изображения даны в сантиметрах, а разрешающая сканера - в дюймах. Нужно перейти к каким-то одним единицам измерения, учитывая соотношение: 1 дюйм ≈ 2.54 см. Допустим, расчеты ведем в сантиметрах. По одной стороне изображения сканер распознает на длине в 1 дюйм (т.е. 2.54 см) 600 точек, по другой - 1200 точек. Тогда на 1 см длины придется 600/2.54 точек и 1200/254 точек соответственно. А на длине в 10 см - в 10 раз больше. Общее количество точек составит При глубине цвета два байта полученный графический файл будет иметь объем байт. Можно перевести в мегабайты: Мбайт
2. Расчет аналогичный, поэтому можно писать кратко.
Const nn=100; var a:array[1..nn] of integer; i,n,s1,s2:integer; begin Write('Введите размер массива n: '); Read(n); Randomize; Writeln('Исходный массив'); for i:=1 to n do begin a[i]:=Random(3000)+1000; Write(a[i]:5) end; Writeln; Writeln('Результаты'); for i:=1 to n do begin s1:=(a[i] div 1000)+(a[i] div 100) mod 10; s2:=(a[i] div 10) mod 10+a[i] mod 10; if s1=s2 then Write(a[i]:5) end end.
При глубине цвета два байта полученный графический файл будет иметь объем
Можно перевести в мегабайты:
2. Расчет аналогичный, поэтому можно писать кратко.