Дан текстовый файл с именем input.txt в первой строке которого записано натуральное число N , а во второй строке N целых чисел. Переписать в файл с именем a.dat числа, кратные 100 из исходного файла , а в файл с именем b.bat чи...

Если программа нужна на паскале и если считать, что числа, кратные и 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); end.