Дано натуральное число n вычислить 1/1*3/2*5/3* ...*90/ 50
Program gt; var s:real; a,b:integer; begin a:=1;b:=1; s:=0; while a<=90 do<br>begin s:=s+a/b; a:=a+2;b:=b+1; end; writeln(s); end.
а можешь еще одну?)
ссылку
http://znanija.com/task/9106985
там во второй строчке икс в квадрате