Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
program O_O;
var S,x,eps:real;
n:integer;
begin
write('x='); readln (x);
eps:=0.01;
For n:=1 to 6 do
begin
eps:=n*cos(n*x);
S:=eps+S;
end;
writeln('S=', S);
end.
var S,x,eps:real;
n:integer;
begin
write('x='); readln (x);
eps:=0.01;
For n:=1 to 6 do
begin
eps:=n*cos(n*x);
S:=eps+S;
end;
writeln('S=', S);
end.
Соседние файлы в папке Паскаль