Составьте программу, которая считает, сколько раз в тексте, заданном с клавиатуры,...

Question

Составьте программу, которая считает, сколько раз в тексте, заданном с клавиатуры, встречается буква "М"
Текст: Мой компьютер сломан

Comments

Program A1;vara:string;b,i:integer;beginwriteln('Vvedi text');readln(a);b:=0;for i:=1 to length(a) do beginif copy(a,i,1)='м' then b:=b+1;end;writeln(b);end.

---

считает маленькие буквы м

---

сойдет или еще большие сделать буквы М

Answer 1

Program A1;vara:string;b,i:integer;beginwriteln('Vvedi text');readln(a);b:=0;for i:=1 to length(a) do beginif copy(a,i,1)='м' then b:=b+1;end;writeln(b);end.

Answer 2

Var str:string; h,m:char; k,l,q:byte; begin read(m); writeln('vvedite stroku'); read(str); l:=ord(str[0]); for k:= 1 to l do begin h:=str[k]; if h=m then q:=q+1; end; writeln('kolichestvo "m"',q); readln; end.