Цитата:
Сообщение от motya
помогите.....!!!!составить программу в паскале вычеркивающую из слова Х буквы встречающиеся при написании ровно 3 раза
|
Вообще-то, как мне помнится, в этом слове всего 3 буквы, и все разные
.
Ну ладно. Вот программа. Считаем, что слово Х состоит только из строчных латинских букв, причем смысловой нагрузки оно не несет. Тогда, например, так:
Код:
CONST
Lng=20; {Word X length}
VAR
X:Array[1..Lng] of Char;
N:Array[1..Lng] of Byte;
i,j:Integer;
BEGIN
Randomize;
For i:=1 to Lng do
begin
X[i]:=Chr(97+Random(26));
Write(X[i]);
N[i]:=0;
end;
WriteLn;
For i:=1 to Lng do
For j:=1 to Lng do
If X[i]=X[j] then Inc(N[i]);
For i:=1 to Lng do
Write(N[i]:3);
WriteLn;
For i:=1 to Lng do
If N[i]<>3 then Write(X[i]);
WriteLn;
ReadLn;
END.