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

Question

Информатика

Ванюся

4 сентября, 10:48

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

+1

Ответы (2)

Знаете ответ на вопрос?

Матфей · 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.