Напиши на языке Паскаля для программы ABC. Задание 4. С клавиатуры вводится строка в. Составьте программу,к торая удаляет из строки: a) все знаки тире и пробелы; б) указанное слово г, которое вводится с клавиатуры. Пример. Выходные данные 375291110011 a) 375 - 29 - 111 - 00 - 11 б) весело весело встретим новый год (s) весело (t) встретим новый год Задание 5. С клавиатуры вводится строка. Составьте программу, которая кодирует строку путем замены: a) звонких согласных на парные глухие согласные (б, в, д, з, ж, г-, т, с, ш, к); a) мягких гласных на соответствующие твердые гласные (я, ё, ю, и, е- а, о, у, ы, ә). Пример. Выходные Входные данные новый год нофый кот приятные мелодии прыатныэ мэлодыы Задание 6. С клавиатуры вводится строка. Составьте програми которая: a) «переворачивает» строку; б) позволяет определить, будет ли введенная строка являться «переву тышем» после удаления из нее всех пробелов. Пример. Входные дочные Выходные данные a)кит тик б)кит на море романтик да

Конечно! Давайте решим задания на языке Паскаль по порядку.

Задание 4

a) Программа, которая удаляет все знаки тире и пробелы из введенной строки:

program RemoveDashesAndSpaces;
var
  v, result: string;
  i: integer;
begin
  writeln('Введите строку:');
  readln(v);
  result := '';
  
  for i := 1 to length(v) do
  begin
    if (v[i] <> '-') and (v[i] <> ' ') then
      result := result + v[i];
  end;
  
  writeln('Результат: ', result);
end.

б) Программа, которая удаляет указанное слово из введенной строки:

program RemoveWord;
var
  v, word, result: string;
  pos: integer;
begin
  writeln('Введите строку:');
  readln(v);
  writeln('Введите слово для удаления:');
  readln(word);
  
  result := v;
  
  while Pos(word, result) > 0 do
  begin
    pos := Pos(word, result);
    Delete(result, pos, Length(word));
  end;

  writeln('Результат: ', result);
end.

Задание 5

Программа, которая кодирует строку, заменяя звонкие согласные на глухие и мягкие гласные на твердые:

program EncodeString;
var
  v, result: string;
  i: integer;
begin
  writeln('Введите строку:');
  readln(v);
  result := '';
  
  for i := 1 to length(v) do
  begin
    case v[i] of
      'б': result := result + 'п';
      'в': result := result + 'ф';
      'г': result := result + 'к';
      'д': result := result + 'т';
      'ж': result := result + 'ш';
      'з': result := result + 'с';
      'й': result := result + 'й';  // 'й' остается без изменений
      'я': result := result + 'а';
      'ё': result := result + 'о';
      'ю': result := result + 'у';
      'и': result := result + 'ы';
      'е': result := result + 'э';  // например, заменяем только 'е' для примера
    else
      result := result + v[i];
    end;
  end;

  writeln('Результат: ', result);
end.

Задание 6

a) Программа, которая переворачивает строку:

program ReverseString;
var
  v, reversed: string;
  i: integer;
begin
  writeln('Введите строку:');
  readln(v);
  reversed := '';
  
  for i := length(v) downto 1 do
  begin
    reversed := reversed + v[i];
  end;

  writeln('Перевернутая строка: ', reversed);
end.

б) Программа, которая определяет, является ли строка «перевершем» после удаления пробелов:

program IsPalindrome;
var
  v, cleaned: string;
  i: integer;
  isPalindrome: boolean;
begin
  writeln('Введите строку:');
  readln(v);
  cleaned := '';
  
  // Убираем пробелы
  for i := 1 to length(v) do
  begin
    if v[i] <> ' ' then
      cleaned := cleaned + v[i];
  end;

  // Проверяем, является ли строка палиндромом
  isPalindrome := true;
  for i := 1 to length(cleaned) div 2 do
  begin
    if cleaned[i] <> cleaned[length(cleaned) - i + 1] then
    begin
      isPalindrome := false;
      break;
    end;
  end;

  if isPalindrome then
    writeln('Да')
  else
    writeln('Нет');
end.

Эти программы помогут вам выполнить задания, используя язык Паскаль. Если у вас есть дополнительные вопросы или нужно разъяснить какие-либо моменты, не стесняйтесь спрашивать!