Дан текст из строчных латинских букв. Вывести на экран первые вхождения букв в текст,сохраняя при этом их исходный взаимный порядок

@95% · Регистрация: 16.08.2011

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

Дан текст из строчных латинских букв. Вывести на экран первые вхождения букв в текст,сохраняя при этом их исходный взаимный порядок.

@КонецСвета · 15.06.2012, 19:07

Pascal

uses crt;
var s: string;
    i: byte;
    m: set of char;
begin
m:=[];
write('s-');readln(s);
for i:=1 to length(s) do
    if (s[i] in ['a'..'z']) and (not (s[i] in m)) then
       begin
       write(s[i]); m:=m+[s[i]];
       end;
end.

@95% 3 / 3 / 1 Регистрация: 16.08.2011 Сообщений: 35
		1
	Дан текст из строчных латинских букв. Вывести на экран первые вхождения букв в текст,сохраняя при этом их исходный взаимный порядок 15.06.2012, 15:57. Показов 5420. Ответов 1 Метки нет (Все метки) Дан текст из строчных латинских букв. Вывести на экран первые вхождения букв в текст,сохраняя при этом их исходный взаимный порядок. 0

	15.06.2012, 19:07

Опции темы

Дан текст из строчных латинских букв. Вывести на экран первые вхождения букв в текст,сохраняя при этом их исходный взаимный порядок

Решение