Какие функции выполняет прикладное по? выберите один или несколько ответов: антивирусная защита табличная обработка данных машинная и деловая графика работа с базами данных обработка текстовкакие функции выполняет прикладное по?

Обработка текстов; работа с базами данных;

Var m : array[0..6] of integer;   i,k,n : integer; begin   for i: =0 to 6 do m[i]: =0;   readln(n);   k: =6;   while n> 0 do   begin       if n> =power(2,k) then       begin           n: =n-trunc(power(2,k));           inc(m[k]);       end else dec(k);   end;   for i: =0 to 6 do writeln(power(2,i),'  ',m[i],' шт.'); end. еще вариант: const   nn = 7;   money : array[1..7] of integer = (1,2,4,8,16,32,64); var m : array[1..nn] of integer;   i,k,n : integer; begin   for i: =1 to nn do m[i]: =0;   readln(n);   k: =nn;   while n> 0 do   begin       if n> =money[k] then       begin           n: =n-money[k];           inc(m[k]);       end else dec(k);   end;   for i: =1 to nn do writeln(money[i],'  ',m[i],' шт.'); end.

Var a,b,c,ch,n: integer; begin   writeln('введите три числа :   '); readln(a,b,c); n: =0; while (a< > 0) do begin ch: =a mod 10; if ch=0 then n: =n+1; a: =a div 10; end; writeln('нулей в первом числе    = ',n); n: =0; while (b< > 0) do begin ch: =b mod 10; if ch=0 then n: =n+1; b: =b div 10; end; writeln('нулей во втором числе  = ',n); n: =0; while (c< > 0) do begin ch: =c mod 10; if ch=0 then n: =n+1; c: =c div 10; end; writeln('нулей в третьем числе  = ',n ); end.