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()
begin
var n := ReadlnInteger;
ReadSeqInteger(n).Where(p -> p mod 10 = 4).Sum.Print
end.