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.

Answer 2

Конечно, вот примеры решений для каждой из задач на языке Паскаль:

1. Считать строку и удалить из нее все пробелы:

pascalCopy code
program RemoveSpaces;
var
  inputStr, outputStr: string;
  i: integer;
begin
  writeln('Введите строку:');
  readln(inputStr);

  outputStr := '';
  for i := 1 to length(inputStr) do
  begin
    if inputStr[i] <> ' ' then
      outputStr := outputStr + inputStr[i];
  end;

  writeln('Строка без пробелов:', outputStr);
end.

2. Подсчитать, сколько букв "А" и "В" в строке:

pascalCopy code
program CountLetters;
var
  inputStr: string;
  countA, countB, i: integer;
begin
  writeln('Введите строку (латинские буквы):');
  readln(inputStr);

  countA := 0;
  countB := 0;

  for i := 1 to length(inputStr) do
  begin
    if (inputStr[i] = 'a') or (inputStr[i] = 'A') then
      countA := countA + 1
    else if (inputStr[i] = 'b') or (inputStr[i] = 'B') then
      countB := countB + 1;
  end;

  if countA > countB then
    writeln('Букв "А" больше')
  else if countB > countA then
    writeln('Букв "В" больше')
  else
    writeln('Количество букв "А" и "В" равно');
end.

3. Переставить запятую в строке:

pascalCopy code
program MoveComma;
var
  inputStr, correctedStr: string;
  commaIndex: integer;
begin
  inputStr := 'Казнить, нельзя помиловать';

  commaIndex := pos(',', inputStr);
  if commaIndex > 0 then
  begin
    delete(inputStr, commaIndex, 1);
    insert(',', inputStr, pos('нельзя', inputStr) + length('нельзя'));
  end;

  writeln(inputStr);
end.

Убедитесь, что ваша среда разработки поддерживает язык Паскаль и может компилировать и запускать эти программы.