Задачка на строки, :( Опции

[-Виктория-]

Код

В строке посчитать по отдельности кол-во входящих в неё символов "а", "б" и "в" за менить на символ "?".
Результирующую строку и кол-во символов вывести на экран.

В программе использвать строковые переменные строкового типа.

[Altair]

Var
 s:string;
 a,b,v,i:byte;
begin
 write('Enter string: '); readln(s);
 for i:=1 to ord(s[0]) do  begin
  case s[i] of
   'а':begin inc(a); s[i]:='?' end;
   'б':begin inc(B); s[i]:='?' end;
   'в':begin inc(v); s[i]:='?' end;
  end 
 end;
 writeln(s,' ',a,' ',b,' ',v);
end.

после выполнения программы, в a,b,v соответсвенно хранится число встретившихся символов "а", "б" и "в".
Все они были заменены в строке символом "?".

Виктория, если что непонятно, спрашивайте! И вообще, почему у вас не получилось сделать? Если вы не будете стараться сделать сами, вы не научитесь! :rose:
:flowers: