program raf105;
var
i: byte;
sum, x: real;
begin
write('Введите x: ');
readln(x);
for i:=3 to 11 do
sum:= sum + sin(i*x);
writeln('S = ',sum);
end.
program raf105;
var
i: byte;
sum, x: real;
begin
write('Введите x: ');
readln(x);
for i:=3 to 11 do
sum:= sum + sin(i*x);
writeln('S = ',sum);
end.
PascalABC 3.4.2