Помогите пожалуйста) Усовершенствовать программу таким образом…

Question

Помогите пожалуйста) Усовершенствовать программу таким образом, чтобы подсчет букв «а» производился не зависимо от раскладки клавиатуры (подсчет в кириллице и латинице) 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.

Answer 1

47

masterf

26 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: