Question

С помощь Паскаля решить задачи:1. Ввести с клавиатуры символьную строку и заменить в ней все буквы "а" на "б" и все буквы "б" на "а".( заглавные на заглавные и строчные на строчные буквы) пример: ааббАА, а после замены стало: ббааББ.2.Ввести с клавиатуры символьную строку и определить сколько в ней слов. Пример: Вася пошел гулять.---- Найдено 3 слова.3.Ввести с клавиатуры в одну строку фамилию, имя и отчество, разделив их пробелом. Вывести фамилию и инициалы. Пример: Пирожков Петр Васильевич, а стало : П.В . Пирожков.

Answer 1

Ответ:

Пошаговое объяснение:

Answer 2

Конечно, вот примеры решения этих задач на языке программирования Pascal:

Задача 1: Замена букв в строке

pascalCopy code
program ReplaceLetters;
var
  inputStr: string;
  i: integer;
begin
  writeln('Введите строку:');
  readln(inputStr);
  
  for i := 1 to length(inputStr) do
  begin
    if inputStr[i] = 'а' then
      inputStr[i] := 'б'
    else if inputStr[i] = 'б' then
      inputStr[i] := 'а'
    else if inputStr[i] = 'А' then
      inputStr[i] := 'Б'
    else if inputStr[i] = 'Б' then
      inputStr[i] := 'А';
  end;
  
  writeln('После замены:', inputStr);
end.

Задача 2: Подсчет количества слов в строке

pascalCopy code
program CountWords;
var
  inputStr: string;
  wordCount, i: integer;
begin
  writeln('Введите строку:');
  readln(inputStr);
  
  wordCount := 0;
  i := 1;
  
  while i <= length(inputStr) do
  begin
    if (inputStr[i] <> ' ') and ( (i = 1) or (inputStr[i - 1] = ' ') ) then
      Inc(wordCount);
      
    Inc(i);
  end;
  
  writeln('Найдено слов:', wordCount);
end.

Задача 3: Вывод фамилии и инициалов

pascalCopy code
program DisplayInitials;
var
  fullName, lastName, initials: string;
  spacePos, i: integer;
begin
  writeln('Введите фамилию, имя и отчество:');
  readln(fullName);
  
  spacePos := pos(' ', fullName);
  lastName := copy(fullName, 1, spacePos - 1);
  
  initials := '';
  i := spacePos + 1;
  
  while i <= length(fullName) do
  begin
    if fullName[i] <> ' ' then
      initials := initials + fullName[i] + '.';
    Inc(i);
  end;
  
  writeln(initials, ' ', lastName);
end.

Пожалуйста, обратите внимание, что эти примеры не учитывают возможные ошибки ввода данных или другие непредвиденные ситуации.