Дана строка. Подсчитать, сколько различных символов встречается в ней. Вывести их на экран. (программа Паскаль)




Дана строка. Подсчитать, сколько различных символов встречается в ней. Вывести их на экран.
спросил 18 Дек, 18 от cevka в категории школьный раздел


решение вопроса

+7
var str,org:string;
    i:integer;
begin
  writeln('Введите строку : ');
  readln(str);
  org:='';
  for i:=1 to length(str) do
    if (pos(str[i],org)=0) then org:=org+str[i];
  
  writeln('Оригинальных символов : ', length(org));
  for i:=1 to length(org) do write(org[i],' ');
end.
ответил 18 Дек, 18 от Olenka

Связанных вопросов не найдено

Обучайтесь и развивайтесь всесторонне вместе с нами, делитесь знаниями и накопленным опытом, расширяйте границы знаний и ваших умений.

Популярное на сайте:

Как быстро выучить стихотворение наизусть? Запоминание стихов является стандартным заданием во многих школах. 

Как научится читать по диагонали? Скорость чтения зависит от скорости восприятия каждого отдельного слова в тексте. 

Как быстро и эффективно исправить почерк?  Люди часто предполагают, что каллиграфия и почерк являются синонимами, но это не так.

Как научится говорить грамотно и правильно? Общение на хорошем, уверенном и естественном русском языке является достижимой целью.