Ребят,особо ничего делать не надо.Просто,если у вас на компе есть паскаль,введите пожалуйста эту программку и проверьте идет ли она,а то у меня нет паскаля а завтра контрольная ;( Вводится строка.Сколько в строке больших и мал...

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