Ребят,особо ничего делать не надо.Просто,если у вас на компе есть паскаль,введите пожалуйста эту программку и проверьте идет ли она,а то у меня нет паскаля а завтра контрольная ;( Вводится строка.Сколько в строке больших и маленьких латинских букв 'А'?
введите какую нибудь строчку потом латинскими буквами,посмотрите правильно выведет?
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.