Дано натуральное число n и действительное число x. вычислить значение суммы s=sinx+

var x, s: real;

  n: integer;

begin

  read(x, n);

  s : = 0.0;

  for var i : = 1 to n do

    s += i * sin(x);

  write(s)

end.

1 кбайт=1024 байта

1 байт=8 бит

81920/8=10240 байт

10240/1024=10 кбайт

1

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    if n mod 2 = 0 then write('четное') else write ('нечетное');

    realdn

end.

2

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    e : = n mod 10

    if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');

    realdn

end.