Да се напише програма, която позволява да се въведе текст, съдържащ букви, цифри и други символи и после извежда отделно буквите, отделно цифрите и отделно другите символи, които са били въвеждани в текста.
По желание: Буквите, цифрите и другите символи:
- да се изведат без повторенията
- и освен това сортирани по нарастващ ред
VAR s:string; i,j:integer; BEGIN write('Vavedi niz: '); readln(s); //Проверяваме кои символи от низа да букви writeln('Bukvi: '); for i:=1 to length(s) do if ((s[i]>='a') and (s[i]<='z')) then write(s[i],' '); for i:=length(s) downto 1 do if ((s[i]>='a') and (s[i]<='z')) then delete(s,i,1);//След като намерим буквите ги изтриваме от низа writeln; //Проверяваме от останалите символи кои са цифри writeln('Cifri: '); for i:=1 to length(s) do if ((s[i]>='0') and (s[i]<='9')) then write(s[i],' '); for i:=length(s) downto 1 do if ((s[i]>='0') and (s[i]<='9')) then delete(s,i,1);//След това ги изтриваме writeln; //Отпечатваме останалото в низа writeln('Simvoli: '); write(s); readln; END.Много интересно решение, Калояне – браво! Но има и друго – с едно обхождане на низа – може като намериш буква, цифра или друг символ, да ги прибавяш съответно към три други празни низа.