Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Информатика / BUKVI
.pas program bukvi;
uses
crt;
var predl:string;
i,j:integer;
begin
i:=0;
writeln('Vvedi predlojenie');
readln(predl);
for j:=1 to length(predl) do
begin
if predl[j]='b' then i:=i+1;
end;
writeln('kolichestvo bukv b= ',i);
readln;
end.
uses
crt;
var predl:string;
i,j:integer;
begin
i:=0;
writeln('Vvedi predlojenie');
readln(predl);
for j:=1 to length(predl) do
begin
if predl[j]='b' then i:=i+1;
end;
writeln('kolichestvo bukv b= ',i);
readln;
end.