Задача №7
Подсчитать в строке число букв А и В, если букв А больше, чем В, то удалить в строке все символы В.
program string_7-
var s:string-
k,l,i:integer-
begin write(‘введите строку:’)-
readln(s)-k:=0-l:=0-
for i:=1 to length(s) do
begin if s[i]=’A’ then k:=k+1-
if s[i]=’B’ then l:=l+1
end-
writeln(‘A=’,k)-
writeln(‘B=’,l)-
if k>-l then
begin for i:=1 to length(s) do
if s[i]=’B’ then begin delete(s,i,1)-
i:=i-1
end-
end-
write(s)-
readln-
end.
Категория: Строки |
Дата: 11.01.13
|