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

Если программа нужна на паскале и если считать, что числа, кратные и 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 1000) and (a mod 110) then write (t3, a,' ') ;

end;

Close (t) ; Close (t1) ; Close (t2) ; Close (t3) ;

end.