Множества. Вывести на экран в алфавитном порядке все буквы, встречающиеся в тексте

@Santi111 · Регистрация: 06.03.2012

Author24 — интернет-сервис помощи студентам

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

@TheSN · 26.03.2012, 21:58

Первая

Pascal

var
  buk: set of 'A'..'Z';
  s: string;
  i: integer;
  c: char;
 
begin
  readln(s);
  for i := 1 to length(s) do
  begin
    s[i] := upcase(s[i]); include(buk, s[i])
  end;
  for c := 'A' to 'Z' do if c in buk then write(c:5);
  readln
end.

@Santi111 6 / 5 / 4 Регистрация: 06.03.2012 Сообщений: 61
		1
	Множества. Вывести на экран в алфавитном порядке все буквы, встречающиеся в тексте 26.03.2012, 20:52. Показов 3345. Ответов 1 Метки нет (Все метки) 1.Задан текст, состоящий из латинских букв, в конце идет точка. Вывести на экран все буквы в алфавитном порядке, встречающиеся в тексте (каждая буква выводится только один раз). Помогите пожалуйста очень надо,сдавать скоро!!!! 0

	26.03.2012, 21:58

Опции темы

Множества. Вывести на экран в алфавитном порядке все буквы, встречающиеся в тексте

Решение