Question

помогите решить плииз, срочно надо!

Answer 1

Выполнено в PascalABC.Net 3.2, но в Дельфи тоже будет работать, как консольное приложение (если не отрежете директиву {$APPTYPE CONSOLE} )

program MyProject;

{$APPTYPE CONSOLE}

var
  x,y:real;
  i,n:integer;

begin
  Write('n='); Readln(n);
  x:=0;
  while x<=10.1 do begin
    y:=0;
    for i:=1 to n do y:=y+cos(i*x);
    Writeln(x:4:1, y:15:8);
    x:=x+0.5
    end;
end.

Результат
n=20
 0.0    20.00000000
 0.5    -1.98481543
 1.0     0.53960857
 1.5    -0.95316377
 2.0    -0.59425320
 2.5    -0.06110708
 3.0    -0.98701429
 3.5    -0.25343437
 4.0    -0.32776330
 4.5    -1.08491874
 5.0     0.27008214
 5.5    -0.94593719
 6.0    -2.12947656
 6.5    -4.95669330
 7.0     0.70952519
 7.5    -0.66352911
 8.0    -0.89305683
 8.5     0.05538722
 9.0    -0.88561081
 9.5    -0.48561955
10.0    -0.12723985