Ответы
Ответ дал:
0
var
x,xi,s:real;
i,n:integer;
begin
Write('Введите x и n: '); Read(x,n);
xi:=1; s:=0;
for i:=1 to n do begin
xi:=xi*x;
s:=s+Sin(xi)
end;
Writeln(s)
end.
Пример
Введите x и n: 1.43 10
-0.669024246654944
Во вложении - контрольное решение.
x,xi,s:real;
i,n:integer;
begin
Write('Введите x и n: '); Read(x,n);
xi:=1; s:=0;
for i:=1 to n do begin
xi:=xi*x;
s:=s+Sin(xi)
end;
Writeln(s)
end.
Пример
Введите x и n: 1.43 10
-0.669024246654944
Во вложении - контрольное решение.
Приложения:
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад