Question

На­пи­ши­те программу, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет сумму всех чисел, крат­ных 6 и окан­чи­ва­ю­щих­ся на 6. Про­грам­ма по­лу­ча­ет на вход на­ту­раль­ные числа, ко­ли­че­ство введённых чисел неизвестно, по­сле­до­ва­тель­ность чисел за­кан­чи­ва­ет­ся чис­лом 0 (0 – при­знак окон­ча­ния ввода, не вхо­дит в последовательность).

Answer 1

var

 N, S: Integer;

begin

 WriteLn ('Введите последовательность натуральных чисел, 0 - для окончания ввода:');

 S := 0;

 repeat

   ReadLn (N);

   if (N mod 6 = 0) and (N mod 10 = 6) then

     S := S + N;

 until N = 0;

 WriteLn ('Сумма = ', S);

end.