Question

Elaborează un program care: determina numărul de apariții a silabei 'ME'

Answer 1

Program Pn;
var s:string; i,n:integer;
begin
Writeln('Dati sirul');
readln(s);
for i:=1 to length(s) do
begin
if (s[i]='M') and (s[i+1]='E') then n:=n+1;
end;
Writeln('In sir sunt ',n,' silabe "ME" ');
readln;
end.