👤

Se da un sir de caractere. Sa se calculeze cite litere de ''A,, si cite litere de ''B,, sunt in sir. Daca numarul de litere ,,A'' este mai mare decit numarul de litere ,,B'' sa se afiseze mesajul ''true,, in caz contrar ,, False'' . Am nevoie de program Pascal de tip functie . Multumesc cei care m-au ajutat va ramin dator.

Răspuns :

E simplu.
program brianly;
var a:string[20];

function t/f(x:string):boolean;
var n,i,j,k:integer;
begin
  n:=lenght(a);
  for i:=1 to n do
    if x[i]='A' then k:=k+1
                  else if x[i]='B'= then j:=j+1;
  if k>j then t/f:=true
                  else t/f:false;
end;
begin
  readln(a);
  write(t/f(a));
end.