Строки. Вывести на экран все слова, в которых все буквы разные

@Sloth_sirit · Регистрация: 13.12.2016

Дан текст из слов, разделенных пробелами. Вывести на экран все слова, в которых все
буквы разные. Если таких слов нет, выдать соответствующее сообщение.

@klast · 19.12.2016, 10:12

наверное не самое красивое решение, но работает нормально

Pascal

var
    s, words: string;
    i, j, k: integer;
    ch: array[1..33] of integer;
    f: boolean;
 
begin
    readln(s);
    k := 0;
    for i := 1 to length(s) do
        if (s[i] = ' ') or (i = length(s)) then
        begin
            if i = length(s) then words := words + s[i];
            f := True;
            words := lowercase(words);
            for j := 1 to length(words) do inc(ch[ord(words[j]) - 223]);
            for j := 1 to 33 do 
            begin
                if ch[j] > 1 then f := False;
                ch[j] := 0;
            end;
            if f then 
            begin
                inc(k);
                writeln(words);
            end;
            words := '';  
        end
        else words := words + s[i];
    if k = 0 then writeln('takih slov net');
end.

@Sloth_sirit 0 / 0 / 0 Регистрация: 13.12.2016 Сообщений: 11
		1
	Строки. Вывести на экран все слова, в которых все буквы разные 19.12.2016, 05:56. Показов 1898. Ответов 1 Метки нет (Все метки) Дан текст из слов, разделенных пробелами. Вывести на экран все слова, в которых все буквы разные. Если таких слов нет, выдать соответствующее сообщение. 0

Опции темы

Строки. Вывести на экран все слова, в которых все буквы разные

Решение