Question

Помогите решить программу на Pascal, я не совсем понимаю как ее сделать. Помогите сделать по примеру

Answer 1

Var a:string;

I:integer;

Begin

Writeln('input word');

Readln(a);

Var b:string;

Var km,kp:integer;

Kp:=0;km:=0;

For i:=1 to length(a) do begin

b+=a[i]

If (a[i]='п') then kp+=1;

If (a[i]='м') then km+=1;

If (a[i]='.') then b+=' ';

End;

Writeln('количество букв п ',kp);

Writeln('количество букв м ',km);

Writeln('измененная строка',b);

End.