Program testabc;
var x,y,z:real;
i:integer;
begin
i:=0;
writeln('Введите 3 числа: ');
readln(x,y,z);
if x<0 then i:=i+1;
if y<0 then i:=i+1;
if z<0 then i:=i+1;
Writeln(i,' отрицательных');
<span>end.</span>
Ряд медленно сходящийся к пи/2, при n = 100000 только пять знаков после запятой.
#include <iostream>
<span>using namespace std;
</span>const int m = 100000;
<span>int main() {
</span><span> double n,p;
</span><span> p=1; n=1;
</span><span> while (m>n) {
</span><span> p*=4*n*n/(4*n*n-1);
</span><span> n++;
</span><span> }
</span><span> cout<<p<<endl;
</span><span> </span><span> </span><span>system("pause");
</span><span> return 0;
</span><span>}
</span>
72 = 58
22 = 1010
FE = 3332
C2 = 3002
37 = 21
72 = 1001000
25 = 31