Ребят,особо ничего делать не надо.Просто,если у вас на компе есть паскаль,введите пожалуйста эту программку и проверьте идет ли она,а то у меня нет паскаля а завтра контрольная ;( Вводится строка.Сколько в строке больших и маленьких латинских букв 'А'?
введите какую нибудь строчку потом латинскими буквами,посмотрите правильно выведет?
program stroka;
var str:string;
x,l:char;
i,k:integer;
begin
k:=0;
x:=a;
l:=A;
readln(str);
for i:=1 to leghth(str) do
begin
if str[i]=x or str[i]=l then k:=k+1;
if str[i]=x and str[i]=l then k:=k+2;
end;
writeln(k);
end.