#include <iostream>
<span>#include <fstream>
</span><span>#include <cstring>
</span><span>using namespace std;
</span>int main() <span>{
</span><span> ifstream fi;
</span><span> ofstream fo;
</span><span> fi.open("input.txt");
</span><span> string sd,sw,inp = "";
</span><span> int i,j;
</span><span> while(!fi.eof())
</span><span> {
</span><span> fi>>i>>j;
</span><span> if (((i%2==0) && (j%2==0)) || ((i%2==1) && (j%2==1)))
</span><span> sd=sd+char(i+48)+" "+char(j+48)+" ";
</span><span> else sw=sw+char(i+48)+" "+char(j+48)+" ";
</span><span> }
</span><span> fi.close();
</span><span> fo.open("output.txt");
</span><span> fo<<sw<<endl;
</span><span> fo<<sd<<endl;
</span><span> fo.close();
</span><span> return 0;
</span><span>}
</span><span>
</span>
Var
B: array[1..10] of integer;
i, c, p, s: integer;
begin
write('C = ');
readln(c);
for i := 1 to 10 do begin
write('B[', i, ']=');
readln(B[i]);
end;
c := 1;
p := 1; s := 0;
for i := 1 to 10 do begin
p := p * (B[i] - C);
s := s + B[i];
end;
for i := 1 to 10 do
writeln('A[',i,']=',(s-p)*B[i]);
<span>end.</span>
Минимальные задержки (пинг) , и большая скорость передачи даных