Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 7 и оканчивающихся на 1. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность Программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 1.Язык питон

i = 1

s = 0

while i != 0:

   i = int(input())

   if (i % 7 == 0) and (i % 10 ==1):

       s += i

print(s)

Ключевой кадр (Keyframe) - это кадр где вы определяете изменения в форме и взаиморасположении объектов участвующих в процессе анимации. При создании покадровой анимации каждый кадр является ключевым. В Автоматической (tweened) анимации, вы определяете ключевые кадры в важных пунктах анимации и позволяете программе Flash самой заполнить содержание кадров между ними. Flash отображает интерполированные кадры tweened анимации в Тайм-лайн, как помеченные синим или зеленым цветом со стрелкой между ключевыми кадрами.

Ключевые кадры, которые содержат какие-либо объекты, отображаются в тайм-лайн заштрихованными черными точками. Пустые ключевые кадры отображаются как незаштрихованные кружкИ. Первый кадр каждого слоя (Layer) всегда ключевой. Содержание простых кадров каждого слоя (если только они не участвуют в tweened анимации) всегда полностью повторяет содержание предыдущего ключевого кадра.

Чтобы создать ключевой кадр:

нужно проделать следующее:

- Выберите кадр, и в меню Insert > KeyFrame.

- Щелкните правой кнопкой мыши на кадре в окне тайм-лайн, и выберите Insert Keyframe. (и все же лучше всего для этой цели использовать кнопку F6)

Для создания ряда ключевых кадров:

Выберите несколько кадров в слое (это можно сделать, нажав левую кнопку мыши, и не отпуская ее увести указатель вправо или влево) и нажмите F6.

 Program SumAndMul;

Uses Crt;

var a:array[1..10] of real;

       i:integer;   

 

       sum,mul:longint;

begin

     clrscr;

     for i:=1 to 10 do

            begin

                 write('Введите -', i,' число:'  );

                  readln(a[i]);

             end;

 

 

sum:=0;mul:=1;

for i:=1 to 10 do

            begin

                if (a[i]>0) then sum:=sum+a[i];

                if (a[i]<0 )  then mul:=mul*a[i];

             end;    

 writeln('Сумма положительных элементов: ',sum);

 writeln('Произведение отрицательных элементов: ',mul);  

   readkey;

 

end.