Какое значение примет переменная b после выполнения данного алгоритма pascal a : = 89; b : = 783; a : = b div 10 mod 10 - a div 10; b : = (a + b) div 10;

А) в пересечении участвуют те элементы множества, которые содержатся одновременно в обоих множествах, поэтому их может быть не более количества элементов в менее мощном множестве, т.е. от 0 до 20. б) в объединении множеств участвуют все элементы одного множества и отсутствующие в нем элементы другого. если оба множества непересекающиеся, т.е. не содержат одинаковых элементов, то в их объединении будет 20+45=65 элементов, а если менее мощное множество полностью содержится в более мощном, то 45 элементов. итого, в объединении может быть от 46 до 65 элементов.

Var f1: text; f2: text; s1,s2: string; k1,k2: integer; begin; assign(f1,'f1.txt');   reset(f1);     while not eof(f1) do     read(f1,s1); close(f1); assign(f2,'f2.txt');   reset(f2);     while not eof(f2) do     read(f2,s2); close(f2); while pos(',',s1)< > 0 do   begin;     delete(s1,pos(',',s1),1);     inc(k1);   end; while pos(',',s2)< > 0 do   begin;   delete(s2,pos(',',s2),1);   inc(k2);   end; if k1> k2 then writeln('в первом'); if k2> k1 then writeln('во втором'); if k2=k1 then writeln('равно'); end.