ОЧЕНЬ С ++Разработать программу для вычисление следующей сумы степного ряду ∑_(n=1) k-верхняя граница x^n/n с заданной точностью ε используя следующую рекурентную формулу U_m=U_n*x*n/(n-1), |x|<1 , m= n+1. Контрольный пример

1941 жылдың 26 маусымында Радошкович деревнясының тұсында болған шайқаста қазақстандық батыр Бақтыораз Бейсекбаевтың қаһармандығы көпке дейін айтылмай келді. Ол отқа оранып, жанып бара жатқан ұшағын жердегі кеңес жауынгерлеріне шабуылдаушы неміс техникаларына қарсы бағыттаған ұшқыш Александр Маслов экипажының құрамында болған еді. Аңызға бергісіз осынау өшпес ерлік біразға дейін даңқты ұшқыш Николай Гастеллоға телініп келген-ді. Алайда, тарихи шындық елге аян болды. Қазір бұл жерде арнайы мұражай бар. «Әуе отты таран» мұражайында 100-ден астам жәдігер жинақталған. Солардың бірі – Бақтыораз Бейсекбаевтан қалған пулемет. Бұл қаруды соғыс жәдігерін іздеушілер ұшақтың құлаған жерінен тапқан.

ҚАНДЫ ШАЙҚАС – КӨЗ АЛДЫҢДА

Әлемнің 13 мемлекеті қатысқан халықаралық әскери шара Беларуссияның Брест қаласында өтті. «Брест қамалы – 1941 жыл, 22 маусым» деп аталатын фестиваль осымен алтыншы рет өткізілді. Осыдан тура 75 жыл бұрын Ұлы Отан соғысы дәл осы Брест қамалын қорғаудан басталған болатын. Халықаралық фестивальға 500-ден астам адам қатысты. Олардың қатарында қазақстандық «Атырау-Брест» экспедициясының сарбаздары да болды. Отан соғысының алғашқы күнінде Гитлердің жоспары бойынша Брест қамалын 8 сағатта жаулап алып, әрі қарай Кеңес Одағының территориясына емін-еркін өту еді. Неміс әскері біздің жауынгерлердің тегеурінді қарсылығына тап болды. Жан аямай соғысқан ерлердің арасында қазақстандықтар да аз болмады.

Попробуй Program PascalGuru; var s:string;    f,t:text;
function preobr(s:string):string;var i,j,p,n,sered:integer;    gl,zp,slovo:string;    m:array [1..80] of string;beginzp:='!?*,.'; gl:='аоуыэяеёюи';  p:=pos(' ',s); i:=0;        repeat        inc(i);        slovo:=copy(s,1,p-1);        m[i]:=slovo;        delete(s,1,p);        p:=pos(' ',s);        until p=0;        n:=i+1;        m[n]:=s;    for i:=1 to n do     begin    s:=m[i];       if pos(s[length(s)],zp)<>0 then p:=length(s)-1 else p:=length(s);     sered:=(p div 2)+1;    if (not odd(p)) or (p<3) then continue;     if pos(s[1],gl)=0       then continue;     if pos(s[sered],gl)=0   then continue;     if pos(s[p],gl)=0       then continue;      s[1]:=UpCase(s[1]);    s[sered]:=UpCase(s[sered]);    s[p]:=UpCase(s[p]);     m[i]:=s+'('+s[1]+','+s[sered]+','+s[p]+')';     end;         s:='';     for i:=1 to n do s:=s+m[i]+' '; preobr:=s;end;
 beginassign(f,'input.txt'); reset(f);assign(t,'output.txt'); rewrite(t); while not eof(f) do      begin      readln(f,s);      writeln(t, preobr(s) );      end;  writeln('Файл успешно записан...'); close(f);close(t);readln;end.