Составить алгоритм программу, которая вводит строку текста - Pascal ABC

Формулировка задачи:

Составить алгоритм программу, которая вводит строку текста. Подсчитать общее количество букв “А” и “В” и заменить каждый символ “+” на “-” и “!”.

Код к задаче: «Составить алгоритм программу, которая вводит строку текста - Pascal ABC»

textual
Var s, newS : string;
    i, A, B : integer;
begin
Writeln('Enter s');
Readln(s);
A:=0;
B:=0;
For i:=1 to length(s) do
    begin
    if (s[i]='A') then inc(A) else
    if (s[i]='B') then inc(B);
    end;
newS:='';
For i:=1 to length(s) do
    begin
    if (s[i]='+') then newS:=newS+'-!' else newS:=newS+s[i];
    end;
Writeln('A=', A);
Writeln('B=', B);
Writeln('New string=', newS);
Readln;
end.

8   голосов, оценка 4.125 из 5


СОХРАНИТЬ ССЫЛКУ