Если программа нужна на паскале и если считать, что числа, кратные и 100 и 11 записываются в оба файла, то программа будет такой:
var t,t1,t2,t3:text;n,a,i:integer;
begin
Assign(t,'input.txt');reset(t);
Assign(t1,'a.txt');rewrite(t1);
Assign(t2,'b.txt');rewrite(t2);
Assign(t3,'c.txt');rewrite(t3);
readln(t,n);
for i:=1 to n do
begin
read(t,a);
if a mod 100 = 0 then write(t1,a,' ');
if a mod 11 = 0 then write(t2,a,' ');
if (a mod 100<>0)and(a mod 11<>0) then write(t3,a,' ');
end;
Close(t);Close(t1);Close(t2);Close(t3);
<span>end.</span>
K=10
i=1, A(1)=11, B(10)=11, k=9
i=2, A(2)=10, B(9)=10, k=8
i=3, A(3)=9, B(8)=9, k=7
i=4, A(4)=8, B(7)=8, k=6
i=5, A(5)=7, B(6)=7, k=5
i=6, A(6)=6, B(5)=6, k=4
i=7, A(7)=5, B(4)=5, k=3
i=8, A(8)=4, B(3)=4, k=2
i=9, A(9)=3, B(2)=3, k=1
i=10, A(10)=2, B(1)=2, k=0
Ответ:
<span>2) заполняет массив А с начала, а массив В с конца</span>
2048 бит :8:1024= 0.25 Кбайт
Program Evklid;
var M,N : integer;
begin
writeln (`Введите M и N`);
readln (M , N);
while M<>N do
begin
if M>N
then M:=M-N
else N:=N-M
end;
write (`нод =`,M);
end.