Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4.

//

Объяснение:

d

1)Материальные ресурсы – чаще всего сырье, ресурсы, материалы, которые человек обрабатывает для своих потребностей. Практически все материальные ресурсы одноразовые. Выплавив из руды металл – повторно использовать ту же руду не получится.

Информационные ресурсы – документы (книги , стать , публикации и т.д) , которые находятся в информационных системах (библиотеках, архивах, банках данных и т.п.). Другими словами это информация, хранящаяся на каком-то доступном носителе.

Основное отличие информационных ресурсов от материальных – это многократное их использование и копирование. Книга не уничтожится после прочтения и её можно скопировать. Таких действий совершить с материальными ресурсами не получится.  

2) основные виды национальных информационных ресурсов:

·         Библиотечные ресурсы 

·         Архивные ресурсы 

·         Научно-техническая информация 

·         Правовая информация 

·         Информация государственных (властных) структур 

·         Отраслевая информация 

·         Финансовая и экономическая информация

·         Информация о природных ресурсах 

·         Информация предприятий и учреждений

3) Здесь каждый сам может ответить, но если ничего не приходит в голову,то каждый чуловек точно пользовался следующими видами:

·         Библиотечными ресурсами – каждый хотя бы раз заходил в библиотеку за книгой.

·         Научно-техническая информация – сюда же можно отнести инструкции для каких-либо приборов и их починки.

·         Правовая информация – думаю конституцию и законы все хотя бы немного читали.

·         Информация предприятий и учереждений .

 

  uses   crt;   var   a: array [1..20, 1..20] of real;   i, j, k, n, s: integer;   begin   clrscr;   write('Введите размер матрицы: ');   read(n);   for i := 1 to n do     for j := 1 to n do     begin       write('A[', i, ',', j, ']= ');       readln(a[i, j]);     end;   WRITELN;   WRITELN;   writeln('Исходная матрица ', n, 'x', n, ': ');   for i := 1 to n do   begin     for j := 1 to n do       WRITE(a[i, j]:2:0, ' ');     WRITELN;   end;   k := 0;   for i := 1 to n do   begin     for j := 1 to n do     begin       if a[i, j] = 0 then       begin         k := k + 1;         s := s + 1;       end;     end;     if k = n then writeln(i, ' строка состоит из нулей! ');     k := 0;   end;   if s = 0 then writeln('В матрице нет нулевых строк'); end.