В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
olgaserzhantova
olgaserzhantova
17.09.2022 01:13 •  Информатика

Сканируется цветное изображение размером 25,4*25,4 дюйм. разрешающая сканера 1200*1200dpi, глубина цвета 16 бита. какой информационный объем будкт иметь полученный графический файл

Показать ответ
Ответ:
рашитгаиф
рашитгаиф
31.12.2020 07:47

Реалізація проекту - Найчастіше, коли вживається слово «проект», зазвичай маються на увазі навчальні проекти як одна з тих технологій, що суттєво збагачують навчальний процес сучасної школи. Але функції та можливості проекту на цьому не закінчуються. Успішно розроблений і реалізований позашкільний проект - це можливість для вас і вашої установи не лише отримати додаткові джерела фінансування, а й вирішити проблеми, які є поруч із вами. Проектна діяльність не є новою для нашого суспільства. Щороку встановлюються зв'язки між українськими та закордонними організаціями, усе частіше впроваджуються нові навчальні курси, освітні проекти та програми...

0,0(0 оценок)
Ответ:
RomochkaRomashka
RomochkaRomashka
19.12.2022 13:35

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.

Объяснение: комментарии к программе

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота