uses crt;
var st:string;
p : array[1..256]of boolean;
i, k : integer;
ch :char;
begin
clrscr;
st := 'coding';
for i:=1 to length(st) do p[i]:=false;
k := length(st);
repeat
for i:=1 to length(st) do
begin
write('[');
if p[i] then write(st[i]) else write(' ');
write(']');
end;
writeln;
write('Введите букву-> ');
readln(ch);
if pos(ch,st)>0 then
begin
writeln('Буква ',ch,' есть в слове!');
for i := 1 to length(st) do if (st[i]=ch) and not p[i] then
begin
p[i] := true;
dec(k);
end;
end else writeln('Такой буквы нет в слове!');
until k=0;
writeln('Вы угадали слово!');
readln;
end.
Похожие записи/страницы:
- Для каждого слова заданного предложения указать долю согласных - Pascal(Паскаль)
- В тексте в слове с четным количеством букв удалить первую букву, в слове с нечетным количеством букв - удалить…
- Определить, сколько раз во втором слове встречается первая буква первого слова - Pascal(Паскаль)
- В заданном предложении в каждом слове удалить все последующие вхождения первой буквы предложения. Новый текст…
- Написать программу, которая находит в заданной строке слово, в котором больше всего встречается заданная буква -…
- Ввести строку, в которой слова разделены пробелом, если в каком то из слове встретилась буква b, то вывести это…
- Выделить из предложения слова, содержащие две или более одинаковые буквы - Pascal(Паскаль)
- Разработать программу с применением строк: выделяющее в слове Y те буквы, которые не используется в слове Z,…