Составить программу определяющую сколько букв "с" в данном слове

Question

Составить программу определяющую сколько букв "с" в данном слове

Answer 1

Var a,b,c:integer;
    d:string;
   begin
 writeln('введите слово ');
 readln(d);
 b:=0;
 for a:=1 to length(d) do begin
 if d[a]='с' then b:=b+1;
 end;
 writeln('количество символов "с" в данном слове ', b);
 end.

Answer 2

Program z_1;
var st,st1:string;
i,sum:integer;
begin
writeln('Введите Вашу строку');
readln(st);
st1:='с';
for i:=1 to length(st) do 
if pos(st1,st[i] ) <> 0 then inc(sum); 
writeln('Ответ = ',sum);
end.

Comments

спасибо

---

Странный способ: применять функцию поиска в строке из одного символа?

---

строка может быть любой длины, расчеты правильные

---

У Вас оба аргумента pos - строки длины 1. Что st1='c', что st[i].

---

А работать будет, я же не писал, что решение неверное, я сказал, что странное оно... нерациональное.