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