program sinus;
var sum,x,i,xn:real; n:integer;
begin
read(x,n);
xn:=x;
sum:=0;
i:=0;
while i<n do begin
sum:=sum+sin(x);
i:=i+1;
x:=x+xn;
end;
writeln ('sum=',sum:2:4);
end.
Объяснение:
язык pascal abc
program sinus;
var sum,x,i,xn:real; n:integer;
begin
read(x,n);
xn:=x;
sum:=0;
i:=0;
while i<n do begin
sum:=sum+sin(x);
i:=i+1;
x:=x+xn;
end;
writeln ('sum=',sum:2:4);
end.
Объяснение:
язык pascal abc