Напишите программу которая в последовательности натуральных чисел определяет сумму всех чисел кратных 7 и оканчивающихся на 2. программа получает на вход натуральные числа и количество введенных чисел неизвестно последовательность чисел заканчивается числом 0. количество чисел не превышает 1000 . введенные числа не превышают 30 000. программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 2. входные данные: 112, 24, 42, 49, 22,0 выходные данные: 154

// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin writeln(readlnstring.tointegers.where(t -> (t mod 7 = 0) and (t mod 10 = ); end.

Program m1;   var s,x: integer;   begin  s: =0;   x: =1;   while x< > 0 do  begin  read(x);   if (x mod 7=0) and (i mod 10=0) then s: =x+s;   end;   writeln('summa=',s);   end.

Кажется библиотека   иерархическая модель появилась впервые в результате обобщения структур данных языка кобол. в иерархических моделях основная структура представления данных имеет форму дерева. на самом высшем (первом)  уровне иерархии находится только одна вершина, которая называется корнем дерева. эта вершина имеет связи с вершинами второго уровня, вершины второго уровня имеют связи с вершинами третьего уровня и т.д. связи между вершинами одного уровня отсутствуют. следовательно, данные в иерархической структуре не равноправны – одни жестко подчинены другим.  доступ к информации возможен только по вертикальной схеме, начиная с корня, так как каждый элемент связан только с одним элементом на верхнем уровне и с одним или несколькими на низком. примером иерархической структуры может служить  книга, как иерархическая последовательность букв, которые объединяются в слова, слова – в предложения, предложения  –  в параграфы, затем в главы и т.д.