Теперь по сути.. Хотелось бы посмотреть возможные варианты выполнения вот этого задания:
Определить, имеются ли в тексте все буквы, входящие в слово «шина».
Вот мое очередное извращение)):
program stroki;
var
s: string;
i,a,b,c,d: byte;
begin
write ('введите текст ');
readln(s);
for i:= 1 to length(s) do
begin
if s[i]='ш' then a:= a+1;
if s[i]='и' then b:= b+1;
if s[i]='н' then c:= c+1;
if s[i]='а' then d:= d+1;
end;
if (a>=1) and (b>=1) and (c>=1) and (d>=1) then
writeln ('в тексте имеются все буквы слова "шина" ')
else
writeln ('в тексте НЕ имеются все буквы слова "шина" ');
readln;
end.
Понимаю что написано коряво, поэтому и предлагаю вам подсказать мне более правильное решение.
Сообщение отредактировано: Евгений -