Напечатать все буквы входящие в текст по одному разу - Pascal

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


textual

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

var c:char;
     s,sd:set of char;
begin
s:=[ ];        {инициализация множества входных символов}
sd:=[ ];      {инициализация множества повторяющихся символов}
repeat
  read(c);
  if c in s then 
    sd:=sd+[c] {накопление множества повторяющихся символов}
  else s:=s+[c];      {накопление множества всех символов}
until c='.';
s:=s-sd-['.']; {получение множества неповторяющихся символов}
for c:=#33  to #255 do
  if (c in s)  then  
    write(c:3);
end.

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

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



Похожие ответы
  1. В заданной строке текста слова разделены произвольным числом пробелов. Выписать все слова, в которых отсутствуют буквы(б,в,г,д,с,л,м,н,р).

  1. Для введенного с клавиатуры произвольного целого числа определить все возможные целые делители, кроме 1 и самого числа. Если число не имеет таких делителей, сообщить об этом. (Например: для 20 – 2,4,5,10; для 21 - 3,7; для 23 – «нет делителей»).

  1. вывести фамилии, имена и отчества всех студентов мужского пола , не сдавших более двх экзаменов

  1. Написать программу на паскале, которая будет определять все ли гласные содержаться в заданной строке....

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

  1. На клеточном поле дана окружность, с центром в середине клетки с координатами (xc; yc) и радиусом r. Нужно вывести координаты всех клеток, которые покрывает заданная окружность. Пример Ввод: 2 2 2 Вывод: 0 1 0 2 0 3 1 0 1 1 1 3 1 4 2 0 2 4 3 0 3 1 3 3 3 4 4 1 4 2 4 3

  1. Дан текстовый файл. Записать в другой файл все строки, длина которых больше 5 символов. Помогите пжлст

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