Составить программу обработки данной строки, позволяющую:a выписать все прописные буквы из данной строки в порядке их следования-b определить, содержа

Составить программу обработки данной строки, позволяющую:

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.

    Ну вот:) О, мой мозг, как же тебе досталось! ~_~


See also: