Написать программу которая вводит с клавиатуры 2 любых числа и от большего числа отнимает 5, к меньшему прибавляет 5, а если чис
Написать программу которая вводит с клавиатуры 2 любых числа и от большего числа отнимает 5, к меньшему прибавляет 5, а если числа равны, то к обоим прибавляет 10.
{s=1-1/1+1/3-1/5+.....} var i,n,z:integer; s: real; begin writeln('Введите n'); readln(n); s:=1; z:=1; for i:=1 to n-1 do begin z:=z*(-1); s:=s+z/(2*i-1); end; writeln(s); end.