в заданной строке подсчитать отдельно количество символов 'a' и 'b' на паскаль

Question

Татьяна · Accepted Answer

... 
ka = 0; 
kb = 0; 
for i := 1 to Length(s) do 
begin 
if s[ i ] = 'a' then 
inc(ka); 
if s[ i ] = 'b' then 
inc(kb); 
end; 
writeln('ka = ', ka,' kb = ', kb); 
readln; 
end.

Софья Буланова · Answer

var a:packed array[char] of integer; 
s:string; 
j:integer; 
begin 
FillChar(a, #0, SizeOf(integer)*256); 
readln(s); 
for j:=1 to Length(s) do inc(a[s[j]]); 
writeln(a['a'], a['b']); 
end.

Zzz · Answer

var s:string; i,a,b:integer; 
begin 
readln(s); a:=0; b:=0; 
for i:=1 to length(s) do begin a:=a+ord(s[ i]='a'); b:=b+ord(s[ i]='b') end; 
writeln('a:',a,' b:',b); readln 
end.