Составить программу для решения следующей задачи: Дана последовательность символов, концом которой является точка. Выяснить можно ли из символов этойпоследовательности составить слово "мама"( т. е. входят ли в последовательность буквы "м" и "а")??
помогите пожалуйсто срочноо нужнооо
А какой язык то?
Наиболее коротко будет на паскале ( но это не заставит меня его уважать! ).
program mama;
var Str:String; // Объявляем строку
i,m,a:Integer; // Счетчик цикла, и количества букв "м" и "а".
res:Boolean; // Результат логического типа.
begin
ReadLn(String);
m:=0; a:=0;
res:=false;
for i:=0 to Length(Str) do
begin
case String[i] of
'.':break;
'м':Inc(m); // увеличить число в переменной m на 1
'а':Inc(a);
end;
if (m>=2)and(a>=2) then // если уже есть две "а" и "б".
begin
res:=true; // можно
break;
end;
end;
if res then WriteLn('Можно')
else WriteLn('Нельзя');
ReadLn();
end.
var a,b,i:integer; s:string;
begin
write('string: '); readln(s); i:=0; a:=0; b:=0;
repeat
inc(i); if s[i]='м' then inc(a); if s[i]='а' then inc(b);
until (s[i]='.')or(i=length(s));
writeln((a>1)and(b>1)); readln
end.
P.S. Впрочем, если использовать case, как это сделал Дмитрий, можно немного короче:
var a,b,i:integer; s:string;
begin
write('string: '); readln(s); a:=0; b:=0;
for i:=1 to length(s) do
case s[i] of 'м':inc(a); 'а':inc(b); '.':break; end;
writeln((a>1)and(b>1));
end.
⇢