// Возводит действилельное число x в целую степень n Procedure Pow(Const X:real; Const n:integer; Var St:real); Var i:integer; Begin St:=1; For i:= 1 to n do St:=St*x; End;
Var x,y,St:real; n:integer; Begin y:=0; Write('x = ');ReadLn(x); Write('n = ');ReadLn(n); For n:= 1 to n do Begin Pow(x,n,St); y:=y+Cos(St); End; WriteLn('y = ',y); End.
Функцией:
// Возводит действилельное число x в целую степень n Function Pow(Const X:real; Const n:integer):real; Var i:integer; Begin result:=1; For i:= 1 to n do result:=result*x; End; Var x,y:real; n:integer; Begin y:=0; Write('x = ');ReadLn(x); Write('n = ');ReadLn(n); For n:= 1 to n do y:=y+Cos(Pow(x,n)); WriteLn('y = ',y); End.
Циклом:
Var x,y,St:real; n:integer; Begin y:=0; Write('x = ');ReadLn(x); Write('n = ');ReadLn(n); St:=1; For n:= 1 to n do Begin St:=St*x; y:=y+Cos(St); End; WriteLn('y = ',y); End.
В зависимости от файла. На тестах работает.
Объяснение:
#читаем файл
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()