Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 4. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, оканчивающееся на 4. количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести одно число – сумму чисел, оканчивающихся на 4.

begin

 var n := ReadlnInteger;

 ReadSeqInteger(n).Where(p -> p mod 10 = 4).Sum.Print

end.

72

Объяснение:

" Var s,k: integer; " --- сначала объявляются две переменные типа integer: s и k.

" Begin s:= 0; " --- затем переменной s присваивается значение 0.

" for k:= 4 to 9 do s:= s + 12; " --- эта строчка представляет из себя цикл. Сначала переменной k задаётся значение 4. Затем при каждом выполнении тела цикла к этому значению прибавляется единица. Это происходит до тех пор, пока значение переменной не достигнет 9. То есть тело цикла будет выполнено 9 - 4 = 5 раз.

Теперь взглянем на тело цикла: s:= s + 12. Эта строчка при каждом выполнении прибавляет к предыдущему значению переменной s 12. Так как она будет выполнена 5 раз, а начальное значение переменной s равно 0, то после выполения цикла значение переменной s будет равно 0 + 12 + 12 + 12 + 12 + 12 = 12 · 5 = 72.

" writeln(s); End. " --- выводит значение s и завершает исполнение программы.

В зависимости от файла. На тестах работает.

Объяснение:

#читаем файл

f = open('input.txt',"r")

#читаем данные строки, разделителем данных является пробел

#4 5 20

#с map переводим в числовой тип, но сам map  

#выдаёт бяку, нужно его ещё в list завернуть

s = list(map(int,(f.readline().split(' '

#по первому примеру. 4*5 = 20

sumi = s[0] * s[1]

#если полученное кол-во орешков больше или равно s[2] = K

#тогда всё ок, иначе нет

if sumi >= s[2]:

   f1 = open('output.txt',"w")

   f1.write("YES")

else:

   f1 = open('output.txt',"w")

   f1.write("NO")

f.close()

f1.close()