Напечатать по одному разу все малые гласные буквы, что входят в текст - Turbo Pascal

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

дано текст из латинских букв после которых следует точка. в алфавитном порядке напечатать(по одному разу) все малые гласные буквы, что входят в этот текст.

Код к задаче: «Напечатать по одному разу все малые гласные буквы, что входят в текст - Turbo Pascal»

textual
const
  glas = ['e','y','u','i','o','a'];
 
var
  c: char;
  m: set of char;
 
begin
  m := [];
  repeat
    read(c);
    if c in glas then
      m := m + [c];
  until c = '.';
  WriteLn;
  for c := 'a' to 'z' do
    if c in m then
      write(c);
  ReadLn;
  ReadLn;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

11   голосов, оценка 4.273 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы