Question

Дана строка, содержащая текст, включающий русские и английские слова. Подсчитать, каких букв в тексте больше – русских или латинских.
Pascal

Answer 1

Ответ:

Объяснение:

var

~~~~s: string;

~~~~m,l: set of char;

~~~~i: integer;

~~~~n: integer;

~~~~k: integer;

begin

~~~~readln(s);

~~~~m:= ['А'..'Я','а'..'я','Ё','ё'];

~~~~l:= ['A'..'Z','a'..'z'];

~~~~for i:=1 to length(s) do

~~~~~~~~if s[i] in m then inc(n);

~~~~~~~~if s[i] in l then inc(k);

~~~~if n>k then write('Русских букв больше!');

~~~~if k>n then write('Латинских букв больше!');

~~~~if n=k then write('Русских и латинских букв поровну!');

end.

Можно лучший ответ пожалуйста?