Запишіть арифметичний вираз за правилами мови С++

y = 2x + sin2x

begin

k: =1;

sumf: =1; {так как для i1 sum=1}

for i: =1 to n do (n-колличество членов, вводится с клавиатуры)

begin

k: =k*i;

f: =k;

sumf: =sumf+1/f;

end;

(while)

function sumw(i: integer): real;

begin

k: =1;

i: =1;

sumw: =1;

while i< =n do

begin

k: =k*i;

f: =k;

sumw: =sumw+1/f;

end;

(repeat)

function sumr(i: integer): real;

begin

k: =1;

i: =1;

sumr: =1;

repeat

k: =k*i;

f: =k;

sumr: =sumr+1/f;

i: =i+1

until  i< n;

var c: char; s: string; i,k,p: integer; begin readln(c); {чтение заданного символа} readln(s); {чтение заданного слова} p: = pos(c,s); {определяем позицию символа} if (p=0) then {функция вернёт 0, если символ не будет найден} writeln('такого символа в слове нет.') else {если символ есть, то } begin writeln('указанный символ расположен на позиции: ',p); k: = 0; {k хранит количество вхождений} p: = length(s); {p хранит длину строки(слова)} for i: =1 to p do {пробегаем по всем символам слова} if (s[i]=c) then inc(k); {если символ совпадает, увеличиваем на 1 переменную k} writeln('количество вхождений данного символа: ',k); end; end.

var s : string; k,f : longint; begin  readln(s);   val(s[1],k,f);   if f< > 0 then writeln('некоректно введена строка')   else if length(s)-1=k then writeln('равно')            else writeln('неравно'); end.

сред. арифметическое = сумма всех чисел разделить на количество

(a1 + a2 + a3 + a4 + a5) / 5