Дан текстовый файл с именем 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.