Var
n:integer;
S,x:real;
Begin
Write('x = ');
ReadLn(x);
Write('n = ');
ReadLn(n);
S:=0;
For n:= 1 to n do
S:=S+Sin(n*x);
WriteLn('S = ',S)
End.
Вот, держи
Будут вопросы, обращайся
const
n = 10;
var
a: array [1..n] of <em>integer</em>;
begin
a[1] := 1;
a[2] := 2;
write('1 2 ');
for i: integer := 3 to n do
begin
a[i] := a[i - 2] + a[i - 1];
write(a[i], ' ');
end;
<span>end.</span>
флешка 400 байт потому что там больше объём
Var a,b:integer;
begin
readln(a,b);
write(b,a);
end.