a=[....] # Пусть данный массив лежит в переменной а
s=0 # Объявление переменной суммы
for i in range(len(N)): # перебор индексов (от 0 до кол-ва
элементов N)
if a[i] %5 == 0: # Проверяем на кратность пяти
s=s+a[i] # Прибавляем к сумме каждый элемент
print(s) # Печатаем сумму
Объяснение:
Спасибо
Ответ дал: Гость
var s: string; i: longint; begin readln(s); for i: =length(s) downto 1 do begin if s[i]=' ' then delete(s,i,1); if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1); end; writeln(length(s)); end.
Ответ дал: Гость
var s,s1: string; n,i: integer; begin readln(s); readln(n); for i: =1 to n do begin insert(s[1],s1,length(s1)+1); delete(s,1,1); end; s: =s+s1; writeln(s); end.
Популярные вопросы