Удалить из строки все символы 's', стоящие как после '.', так и после '; ', подсчитать общее количество символов 'a'и'b' (заранее )(кто ответит 15 голосов в

Udalit-delete[ ] s, podshitat obwee kolichestvo simvolov strlen(s)

Ответ 2 мой вк trolface trolfaceov картина кролика

program test; var evaluation: integer; begin    write('какую оценку ты получил за контрольную работу? : ');     readln(evaluation);     case evaluation of      5: writeln('это отличный результат! ');       4: writeln('не плохо ,но есть к чему стремиться в будущем! ');       3: writeln('ты можешь и лучше! ');       2: writeln('ой,печалька! ');     else      writeln('error! entered an invalid value');     end;     readln; end.

program  z_string;   uses  crt;   const  letters  =  ['a'..'z','a'..'z','а'..'я','а'..'я'];   var  strings, symbol  : string;           counteri,  number: byte;   begin

  clrscr;     writeln('введите строку текста');     readln(strings);         number  : =  0;     symbol  : =  '';   for  counteri  : =  1  to  length(strings)  do    begin      if  (strings[counteri]  in  letters)  and  (symbol  =  '')  then        symbol  : =  strings[counteri];               if  (not(strings[counteri]  in  letters))  and  (counteri  < >   1)  then      begin        if  strings[counteri  -  1]  =  symbol  then          inc(number);         symbol  : =  '';     end;             if  (counteri  =  length(strings))  and  (strings[counteri]  =  symbol)  then        inc(number);     end;         writeln;     writeln('количество слов начинающихся и заканчивающихся одной и той же буквой ',  number);     readln;   end.

ахах тоже составляли такую,прикольная; )