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

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


textual

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

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.

СДЕЛАЙТЕ РЕПОСТ

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



Похожие ответы
  1. вывести фамилии, имена и отчества всех студентов мужского пола, старших 18 лет. Должна вводиться информация о студентах(фамилии, имена, отчества, пол, возраст).

  1. Два нечетных простых числа, разность между которыми равна 2, называются близнецами. На интервале от 1 до 1000 найти всех близнецов и подсчитать количество пар. Необходимо сделать ,используя только циклы ,а без функций и процедур я хз как(

  1. Ввести с клавиатуры одномерный массив из 5 чисел , подсчитать сумму элементов больше нуля и вывести результат на экран монитора.

  1. Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива

  1. Здравствуйте) Помогите пожалуйста определиться, что конкретно нужно сделать в задаче: Записать указанное действие в виде одного условного оператора: arcsin(1+ln x)=a, если такой существует. Я само условие не могу понять Как должна работать программа (у меня пока два варианта):Вводятся (с клавиатуры) a и x, в условном операторе проверяется равенство и выводится соответственно true или false Вводится x (с клавиатуры) и если x>0 вычисляется a, иначе сообщение, что a невозможно вычислить (из-за отрицательного значения в логарифме) Какой вариант решения выбрать? Или меня совсем не в ту степь понесло?

  1. Есть процедура на Pascal (посчитует суму в кажой строке матрицы)

  1. Создать текстовый файл, в который записать в столбик несколько чисел (<20). Составить программу, которая подсчитывала бы количество чисел в файле, а затем дописывала бы в его конец столько случайных чисел, чтобы всего чисел оказалось 20. Кроме того, программа должна найти минимальное и максимальное число в полученном файле.

  1. По введенным значениям аргумента х вычислить значение функции, заданной графически.Помогите пожалуйста написать программу в Паскале

  1. Создать модуль, дополняющий математические возможности Паскаля функциями для нахождения площади треугольника: «sGeron» - по известным трем сторонам, «sH» - по известным высоте и стороне основания, «Salfa» - по двум сторонам и углу между ними. Составить программу, которая использует данный модуль.

  1. Вот предложение: "Дана строка. Группы символов, разделенные пробелами и не содержащие пробелы внутри себя, будем называть словами." Написать программу, удаляющую в каждом слове повторяющиеся символы.