Question

составить программу, которая а) считает и возвращает количество букв, цифр, знаков б) любой гласный, подлежащий замене на букву «в» в), чтобы удалить часть предложения.Паскаль прошу.

Answer 1

Считает  количество букв, цифр, знаков в строке

program test;

var a:string;

begin

read (a);

write(length(a));

end.

Answer 2

Конечно! Вот программа на языке Pascal, которая выполняет указанные задачи:

pascalCopy code
program TextAnalysis;

uses
  SysUtils;

function CountCharacters(const text: string; var letters, digits, symbols: Integer): string;
var
  i: Integer;
begin
  letters := 0;
  digits := 0;
  symbols := 0;

  for i := 1 to Length(text) do
  begin
    if IsLetter(text[i]) then
      Inc(letters)
    else if IsDigit(text[i]) then
      Inc(digits)
    else
      Inc(symbols);
  end;

  Result := Format('Букв: %d, Цифр: %d, Знаков: %d', [letters, digits, symbols]);
end;

function ReplaceVowels(const text: string): string;
const
  Vowels = ['a', 'e', 'i', 'o', 'u', 'A', 'E', 'I', 'O', 'U'];
var
  i: Integer;
begin
  Result := text;

  for i := 1 to Length(Result) do
  begin
    if Result[i] in Vowels then
      Result[i] := 'в';
  end;
end;

function RemoveSubstring(const text, substring: string): string;
begin
  Result := StringReplace(text, substring, '', []);
end;

var
  inputText, substring: string;
  letterCount, digitCount, symbolCount: Integer;
begin
  // Чтение входного текста
  WriteLn('Введите текст:');
  ReadLn(inputText);

  // Подсчет количества букв, цифр и знаков
  WriteLn(CountCharacters(inputText, letterCount, digitCount, symbolCount));

  // Замена гласных на букву "в"
  WriteLn('Текст после замены гласных на букву "в":');
  WriteLn(ReplaceVowels(inputText));

  // Удаление части предложения
  WriteLn('Введите подстроку для удаления:');
  ReadLn(substring);
  WriteLn('Текст после удаления подстроки:');
  WriteLn(RemoveSubstring(inputText, substring));

  ReadLn;
end.

Программа принимает текст, выполняет подсчет букв, цифр и знаков, заменяет гласные на букву "в" и позволяет удалить заданную подстроку.