№ 4 А и Б Решите . СЕГОДНЯ НУЖНО

8 Февраль 2012



№ 4 ( А и Б ) Решите СРОЧНО. СЕГОДНЯ НУЖНО 

  • var
        s    : String;
        i, e : Integer;
    begin
        Writeln(‘Введите строку:’);
        Readln(s);

        e := 0;

        for i := 1 to Length(s) do
            if s[i] = ‘A’ then inc(e);

        Writeln(e);
        Readln;
    end.

    b)

    var
        s : String;
        i  : Integer;
    begin
        Writeln(‘Введите строку:’);
        Readln(s);

        for i := 1 to Length(s) do
            if s[i] = ‘A’ then s[i] := ‘*’;

        Writeln(s);
        Readln;
    end.







Информатика

Комментарии закрыты.