Question

На Паскале !!!!!!Плиззз Дана строка. а. Определить количество гласных и согласных букв. б. Удалить все повторяющиеся символы.

Answer 1

PascalABC.NET 3.4.2, сборка 1827 от 08.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var Гласные := ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'];

 var Согласные := ['а'..'я'] - Гласные;

 var s := ReadlnString('Введите строку:').ToLower;

 var Гласных := s.Where(t -> t in Гласные).Count;

 var Согласных := s.Where(t -> t in Согласные).Count;

 Println('Гласных', Гласных, ', согласных', Согласных);

 Print('После удаления повторов:');

 s.Distinct.Println

end.

Answer 2

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

а. Определение количества гласных и согласных букв в строке:

pascalCopy code
program CountVowelsAndConsonants;

var
  inputString: string;
  vowels, consonants: integer;
  ch: char;

begin
  vowels := 0;
  consonants := 0;

  writeln('Введите строку:');
  readln(inputString);

  inputString := LowerCase(inputString); // Приводим строку к нижнему регистру для учета всех возможных вариантов гласных и согласных букв

  for ch in inputString do
  begin
    if ch in ['a', 'e', 'i', 'o', 'u', 'y', 'а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'] then
      vowels := vowels + 1
    else if ch in ['b'..'z', 'б'..'я'] then
      consonants := consonants + 1;
  end;

  writeln('Количество гласных букв: ', vowels);
  writeln('Количество согласных букв: ', consonants);

  readln;
end.

б. Удаление всех повторяющихся символов:

pascalCopy code
program RemoveDuplicates;

var
  inputString, resultString: string;
  ch: char;

begin
  resultString := '';

  writeln('Введите строку:');
  readln(inputString);

  for ch in inputString do
  begin
    if Pos(ch, resultString) = 0 then
      resultString := resultString + ch;
  end;

  writeln('Результирующая строка без повторяющихся символов: ', resultString);

  readln;
end.

Оба примера кода позволяют вводить строку с клавиатуры и выводят результаты на экран.