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

  • var
      sum, x : integer;
    begin
      sum := 0;
      repeat
        read (x);
        if (x mod 6 = 0) and (x mod 10 = 2) then sum := sum + x;
      until x = 0;
      write (sum);
    end.
  • sum:=0;
    for i:=0 to 100 do
    if a mod 6=0 then sum:=sum+a;
    for(int i = 0; i < 100; i++) k += (A[ i ] % 6? 0 : 1);
    if a mod 6 = 0 получишь число, кратное 6