Вывести на экран отсутствующие латинские гласные буквы - Pascal

Формулировка задачи:

Ввести с клавиатуры строку символов, и при этом программа должна вывести на экран латинские гласные буквы (a, e, i, o, u) которые отсутствуют в введённой строке.

Код к задаче: «Вывести на экран отсутствующие латинские гласные буквы - Pascal»

textual
const
  cs = ['a', 'e', 'u', 'i', 'o'];
 
type
  tset = set of char;
 
var
  i: integer;
  s: string;
  sp: tset;
 
begin
  writeln('Введите  предложение и нажмите Enter:');
  readln(s);
  sp := [];
  writeln('Гласные, входящие в предложение:');
  for i := 1 to Length(s) do
    if (s[i] in cs) and not (s[i] in sp) then 
    begin
      sp := sp + [s[i]];
      write(s[i], ' ');
    end;
  sp := cs - sp;
  writeln;
  writeln('Гласные, не вошедшие в предложение:');
  for i := 32 to 255 do
    if chr(i) in sp then
      write(chr(i), ' ');
  readln;
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

8   голосов, оценка 4.250 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы