Question

Sa se afle cite litere sunt mai multe M sau N in sirul dat S
urgenttt.....va rog

Answer 1

program Tema;

var i,nr_M,nr_N:integer;
     string s;
begin
nr_M:=0;
nr_N:=0;
writeln('Introduceti sirul: ');
readln(s);
for i=1 to Length(s) do
begin
if s[i]='m' or s[i]='M' then
nr_M:=nr_M+1;
else if s[i]='n' or s[i]='N' then
nr_N:=nr_N+1;
end;
if nr_M>nr_N then
writeln('Sunt mai multe caractere M decat N in sirul dat');
else if nr_M<nr_N then
writeln('Sunt mai multe caractere N decat M in sirul dat ');
else
writeln('Numarul de caractere N este egal cu numarul de caractere M');
end.