Составить программу обработки данной строки, позволяющую: a) выписать все прописные буквы из данной строки в порядке их следования; b) определить, содержатся ли в тексте цифры; c) найти общее количество круглых, квадратных и фигурных скобок в тексте; d) выписать все знаки препинания из данной строки, сохранив их последовательность;

A) var a: string;     i: integer; begin       readln(a);       for i : = 1 to length(a) do           if (a[i] < > upcase(a[i])) then             write(a[i], ' '); end.b)var a: string;     i, p: integer;     q: boolean; begin      readln(a);       for p : = 0 to 9 do          for i : = 1 to length(a) do              if (a[i] = inttostr(p)) then                    q : = true;       writeln(q); end.c)var a: string;     i, p, u: integer;     o: array [0..5] of char; begin      readln(a);       o[0] : = '('; o[1] : = ')'; o[2] : = '{'; o[3] : = '}'; o[4] : = '['; o[5] : = ']';       for p : = 0 to 5 do          for i : = 1 to length(a) do              if (a[i] = o[p]) then                    u : = u + 1;       writeln(u); end.d)var a: string;     i, p: integer;     o: array [0..7] of char; begin      readln(a);       o[0] : = '('; o[1] : = ')'; o[2] : = '? '; o[3] : = '! '; o[4] : = '"'; o[5] : = '.'; o[6] : = ','; o[7] : = ',';       for i : = 1 to length(a) do          for p : = 0 to 7 do              if (a[i] = o[p]) then                    writeln(a[i]); end.ну вот: ) о, мой мозг, как же тебе досталось!   ~_~

0.217•10^7
Мантисса 0.217
Порядок +7