Ввести строку из символов 2-х типов: А и В. Подсчитать колличество символов А и символов В в строке. Если число символов А больше числа символов В, то удалить в строке все символы В, иначе удалить в строке все символы А. Вывести полученую строку

Категория: Delphi/Pascal
2011-08-20 14:02:33
code: #pascal
  1. Program Primer3;
  2.  Uses Crt;
  3.  var s:String;
  4.  Function KolSimv(ch:Char;Str:String):Integer;
  5.  var i,k:Integer;
  6.  begin
  7.    k:=0;
  8.    For i:=1 to Length(Str) do
  9.      if Str[i]=ch then inc(k);
  10.    KolSimv:=k;
  11.  end;
  12.  Function StrokaUdal(ch:Char;Str:String):String;
  13.  var i:Integer;
  14.  begin
  15.    While pos(ch,Str)<>0 do
  16.     Delete(Str,pos(ch,Str),1);
  17.    StrokaUdal:=Str;
  18.  end;
  19.  begin
  20.     ClrScr;
  21.     Write('Введите строку:');
  22.     Readln(s);
  23.     If KolSimv('A',s)>KolSimv('B',s) then Writeln(StrokaUdal('B',s)) else
  24.       Writeln(StrokaUdal('A',s));
  25.     Readkey;
  26.  end.
Поделиться:

Похожие статьи:

теги: pascal, студенты, консольное приложение, работа со строками