Задание:
Помогите пожалуйста) Усовершенствовать программу таким образом, чтобы подсчет букв «а» производился не зависимо от раскладки клавиатуры (подсчет в кириллице и латинице) Program buka; VarT: string; K,i: integer; BeginWriteln ('введите слово'); Readln (t); K: =0; For i: =1 to length (t) doIf copy (t,I,1)='a' then k: =k+1; Writeln ('количество букв «а»=',k); End.
Решение:
Program buka; Var T: string; K,i: integer; Begin Writeln ('введите слово'); Readln (t); K: =0; For i: =1 to length (T) do If (t[i]='а') or (t[i]='a') then k: =k+1; Writeln ('количество букв «а»=',k); End.
Знаете другой ответ?