Var a,b : integer;
begin
readln(a,b);
if (a mod b) = 0 then writeln('Делитель ', b);
if (b mod a) = 0 then writeln('Делитель ', a);
readln;
end.
Var ar:array[1..10] of integer;
i,k1,k2,k3:integer;
begin;
randomize;
k2:=1;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(10);
write(ar[i]:4);
if odd(i) then k2:=k2*ar[i] else k1:=k1+ar[i];
if ar[i]>3 then inc(k3);
end;
writeln;
writeln('1:',k1);
writeln('2:',k2);
writeln('3:',k3);
end.
Ряд медленно сходящийся к пи/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>
1 Офис ворд
2- 3
3) 3
4) процесс <span> придания </span>текст у <span>определенного вида, связанный с определением левой и правой границ </span>текста<span>, абзацного отступа и </span>
101110=1*2^5 + 1*2^3 + 1*2^2 + 1*2= 32+8+4+2=46
621=6*8^2 + 2*8 + 1= 384+16+1=401
64C= 6*16^2 + 4*16 +12=1536+64+12=1612