с клавиатуры вводят слово и символ.Составте программу которая:подсчитывает количество вхождений заданного символа
Ответы
Ответ дал:
0
var a:string;
b:char;
i,sum:integer;
begin
readln(a,b);
for i:=1 to length(a) do begin
if pos(b,a)<>0 then begin
sum:=sum+1;
delete(a,1,pos(b,a));
end;
end;
writeln(sum);
end.
Похожие вопросы
2 года назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад