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