Question

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

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.