Обробка текстовых даных - Pascal ABC
Формулировка задачи:
Создайте пожалуйста програму.
1. Подсчитать количество слов в предложении, состоящих из заданного количества букв
2. Найти в введенном предложении короткое слово и подсчитать, сколько в нем различных букв.
Решение задачи: «Обробка текстовых даных»
textual
Листинг программы
var s, s2: string; i, j, k2, min: integer; begin writeln('введите строку'); readln(s); //k := 0; k2 := 0; min := 1000; s := s + ' '; for i := 1 to length(s) do if s[i] = ' ' then begin k2 := (i - 1) - k2; if k2 < min then begin min := k2; s2 := copy(s, i - k2, k2); end; k2 := i; end; write('в слове ', s2); for i:=1 to length(s2) do begin for j:=length(s2) downto i do begin if (s2[i]=s2[j]) and (i<>j) then s2:=copy(s2,1, j-1)+copy(s2,j+1,length(s2)); end; end; writeln(' ', length(s2), ' различных букв'); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д