ПИТОН ОЧЕНЬ НУЖНО Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся
на 2.программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0(0-признак окончание ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 30000.
Программа должна вывести одно число:сумму все чисел, кратных 6 и оканчивающихся на 2.
Пример работы программы:
Входные данные
42
6
32
20
12
0
Выходные данные
54
var
n: integer; // степень числа
res: integer; // результат
idx: integer; // индекс для цикла
begin
write('Введите степень числа: ');
readln(n);
res := 1;
if n < 0 then
begin
writeln('Степень должна быть неотрицательной.');
halt(-1); // завершение программы
end
else if n >= 30 then
begin writeln('Переполнение типа Integer.');
halt(-2);
end
else if n > 0 then
begin
for idx := 1 to n do
res := res * 2;
end;
writeln('Результат возведения 2 в степень ', n, ': ', res, '.');
end.