Question

1. Считать с клавиатуры строку и удалить из нее все пробелы.
2. Считать с клавиатуры строку, состоящую из латинских букв (буквы могут быть прописными или строчными) и подсчитать каких букв в ней больше “А” или “В”?
3. Дана строка «Казнить, нельзя помиловать». Переставить в ней запятую на нужное место после слова «нельзя» и распечатать исправленную строку.
(паскаль)

Answer 1

// PascalABC.NET

begin

 // 1

 var s1 := ReadlnString.Replace(' ','');

 s1.Println;

 // 2

 var m := ReadlnString.MatchValues('[AaBb]');

 if m.Count > 0 then

 begin

   var n := m.Count(c -> c.ToLower = 'a') -

       m.Count(c -> c.ToLower = 'b');

   case Sign(n) of

     -1: Println('В строке больше символов B');

     0: Println('В строке поровну символов A и B');

     1: Println('В строке больше символов A');

   end

 end

 else

   Println('В строке нет символов A или B');

 // 3

 var s2 := 'Казнить, нельзя помиловать';

 var i := Pos(',', s2);

 Delete(s2,i,1);

 i := Pos('я', s2);

 Insert(',', s2, i + 1);

 s2.Print

end.