Сканируется цветное изображение размером 25,4*25,4 дюйм. разрешающая сканера 1200*1200dpi, глубина цвета 16 бита. какой информационный объем будкт иметь полученный графический файл
Реалізація проекту - Найчастіше, коли вживається слово «проект», зазвичай маються на увазі навчальні проекти як одна з тих технологій, що суттєво збагачують навчальний процес сучасної школи. Але функції та можливості проекту на цьому не закінчуються. Успішно розроблений і реалізований позашкільний проект - це можливість для вас і вашої установи не лише отримати додаткові джерела фінансування, а й вирішити проблеми, які є поруч із вами. Проектна діяльність не є новою для нашого суспільства. Щороку встановлюються зв'язки між українськими та закордонними організаціями, усе частіше впроваджуються нові навчальні курси, освітні проекти та програми...
Реалізація проекту - Найчастіше, коли вживається слово «проект», зазвичай маються на увазі навчальні проекти як одна з тих технологій, що суттєво збагачують навчальний процес сучасної школи. Але функції та можливості проекту на цьому не закінчуються. Успішно розроблений і реалізований позашкільний проект - це можливість для вас і вашої установи не лише отримати додаткові джерела фінансування, а й вирішити проблеми, які є поруч із вами. Проектна діяльність не є новою для нашого суспільства. Щороку встановлюються зв'язки між українськими та закордонними організаціями, усе частіше впроваджуються нові навчальні курси, освітні проекти та програми...
program Number3;
var
A: array [1..3] of Integer; // массив для трех чисел
i, c, s: Integer;
begin
WriteLn ('Введите три числа: ');
Read (A [1], A [2], A [3]); // Ввод трех чисел с клавиатуры
c := 0;
for i := Low (A) to High (A) do begin // подсчет количества положительных чисел
if A [i] > 0 then
c := c + 1;
end;
if c >= 2 then begin // если положительных хотя бы 2, то
WriteLn ('Новые значения чисел: ');
for i := Low (A) to High (A) do begin
if (A [i] mod 2) > 0 then // увеличиваем нечетные на 1
A [i] := A [i] + 1;
Write (A [i], ' '); // выводим их на дисплей
end;
end else begin
s := 0;
for i := Low (A) to High (A) do // находим сумму
s := s + A [i];
WriteLn ('Сумма всех чисел = ', s); // выводим сумму на дисплей
end;
ReadLn;
ReadLn;
end.
Объяснение: комментарии к программе