Ответ(ы) на вопрос:
ГостьProgram pr;
uses crt;
Var n,i:integer;
x,y:real;
Begin
Writeln('Введите x');
readln(x);
Writeln('Введите n');
readln(n);
y:=0;
for i:=1 to n do
y:=y+cos(power(x,i));
Writeln('y = ', y);
readln();
end.
Не нашли ответ?
Похожие вопросы