Добрый вечер!
Очень нужна помощь!
Просто горю.
Может кто сталкивался с этой бедой.
Вводим текст в строку. И если в этом тексте есть слова в которых встречаются две буквы "а",
выводим эти слова. Как написать эту программу на Паскале. Помогите чем можете.
Спасибо.
у меня получилось как-то так...
procedure wha(const s:string);
const
l:set of char =['A'.. 'Z', 'a'..'z'(* ,'' *)]; //дополнить буквами
s_let='а';
var
in_a, i:integer;
sn:string;
begin
in_a:=0;
for i:=1 to length(s)+1 do begin
if not (s[i] in l) then begin
if in_a=(*>=*)2 then writeln(sn); //а если в слове 3 буквы?
in_a:=0; sn:='';
end
else begin
if s[i] = s_let then inc(in_a);
sn:=sn+s[i];
end;
end;
end;
Спасибо огромное. Все как нельзя кстати.