30 поставьте в соответствии каждому примеру вид информационного процесса 1. хранение информации 2. обработка информации 3. передача информации 4. получение, обработка, сохранение информации 5. кодирование информации 6. использование информации 7. копирование информации а. распространение информации посредством сми б. организация архива в. сравнение данных г. двоичное кодирование д. процесс познания е. запись порции информации в буфет обмена ж. информационные войны

1-б
2-в
3-а
4-д
5-г
6-ж
7-е

//PascalABC.Net 3.1 сборка 1200

//написано в стиле обычного паскаля, должно работать

var

   number: integer;

   sum, sum_all, k: integer;

begin

   repeat

       write('Элемент последовательности => ');

       readln(number);

       

       if (number mod 10 = 2 ) and (number mod 4 = 0) then sum := sum + number;

       if (number <= 100) then k := k + 1;

       sum_all := sum_all + number;

   until number = 0;

   

   writeln('Сумма всех чисел, которые кратны 4 и заканчиваются на цифру 2 = ', sum);

   writeln('Сумма всех = ', sum_all);

   writeln('Кол-во чисел, которые не больше 100 = ', k);

end.

//PascalABC.Net 3.1 сборка 1200

var

   number: integer;

   sum, sum_all, k: integer;

begin

   repeat

       write('Элемент последовательности => ');

       readln(number);

       

       if (number mod 10 = 2 ) and (number mod 4 = 0) then sum := sum + number;

       if (number <= 100) then k := k + 1;

       sum_all := sum_all + number;

   until number = 0;

   

   writeln('Сумма всех чисел, которые кратны 4 и заканчиваются на цифру 2 = ', sum);

   writeln('Сумма всех = ', sum_all);

   writeln('Кол-во чисел, которые не больше 100 = ', k);

end.