Напишите программу, которая находит все символы в символьной строке, которые встречаются только один раз. входные данные на вход программы подаётся символьная строка. выходные данные программа должна вывести все символы, которые встречаются в строке только один раз, в порядке возрастания их ascii-кодов. если таких символов нет, нужно вывести слово 'no'. примеры входные данные asd12ad2 выходные данные 1s pascal abc 1.8 с использованием множеств

250

359

Посмотреть ответы 2

Ответы на вопрос:

IgorPoberezhny

Информатика

4,8(40 оценок)

Var uniq: set of char; used: set of char; s: string; i: integer; done: boolean; c: char; begin uniq : = []; used : = []; readln(s); for i : = 1 to length(s) do if not (s[i] in used) then begin include(uniq, s[i]); include(used, s[i]); end else begin exclude(uniq, s[i]); end; done : = false; for c : = #0 to #255 do if (c in uniq) then begin done : = true; write(c); end; if not done then write('no'); writeln; end.

sashachadaev

Информатика

4,4(32 оценок)

11 - xi 13 - xiii22 - xxii 39 - xxxix 60 - lx 99 - xcix 200 - cc 438 - cdxxxviii 649 - dcxlix 999 - cmxcix 1207 - mccvii 2945 - mmcmxlv 3555 - mmmdlv 3678 - mmmdclxxviii 3900 - mmmcm 3999 - mmmcmxcix