Подскажите как сделать такую задачу:
Описать функцию, которая возвращает значение true , если в строке буква А встречается чаще, чем буква Б, и false в противном случае.
Зарание спасибо.
function f(s: string): boolean;
var i, count: integer;
begin
count := 0;
for i := 1 to length(s) do
if s[i] = 'А' then inc(count)
else if s[i] = 'Б' then dec(count);
f := count > 0;
end;