Дано предложение. Напечатать все слова, которые встречаются в нем по одному разу.
10-11 класс
|
·²²²²²²²²
где предложение??????????????
var a:string; b:array[1..100]of string; i,k,f,j:integer; begin readln(a); a:=' '+a; for i:=1 to length(a) do if a[i]=' 'then inc(k) else b[k]:=b[k]+a[i]; for i:=1 to k do begin f:=0; for j:=1 to k do if (ij)and(b[i]=b[j])then f:=1; if f=0 then write(b[i],' '); end; end.
Другие вопросы из категории
Ниже записана программа. Получив на вход число x, эта программа печатает два числа, L и M. Укажите наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 28.
var x, L, M: integer;
begin
1) система обработки изображений документов
2) система управления документами
3) система автоматизации деловых процедур
4) система оптического распознавания символов
или с символа А или с символа О какое количество информации несёт один символ этого пллемени
Читайте также
пробела, за последним словом-точка. Составить программу на языке Паскаль
1) Все слова, которые встречаются в последовательность по одному разу
Нужно задать массив целых чисел. Вывести на экран только те значения элементов массива, которые встречаются в нем более одного раза, при этом каждое найденное значение должно быть распечатано столько раз, сколько оно встречается.
часто исползуем цифры в нашем тексте. васм дано одно предложение не англиском
языке. Нужно найти все цифры, которые встречаются в этом предложенний хотябы бы
один раз
Дана строка, содержащая слова, разделенные одним пробелом. Напечатать все слова, отличные от последнего слова.
предложения и т.д. Т.е. к примеру дано предложение "QQQWWWeeeTTTWWW" после зашифровки должно быть так "WWWTTTeeeWWWQQQ"