Question

Дан текст из строчных латинских букв и цифр ,определить чего больше в этом тексте букв или цифр.

Answer 1

PROGRAM LOL;
VAR S:STRING;
I,K,L:INTEGER;
BEGIN
READLN(S);
for i:=1 to length(s) do
begin
if ('a'<=s[i]) and (s[i]<='z') then
k:=k+1;
if('A'<=s[i]) and (s[i]<='Z') then
k:= k+1;
if ('0'<=s[i]) and (s[i]<='9') then
l:=l+1;end;
if(k>l) then
write('в тексте больше букв')
else write('в тексте больше чисел');
end.

Answer 2

if('A'<=s[i]) and (s[i]<='Z') then
k:= k+1; - это зачем? По условию латинские буквы строчные.

Answer 3

А еще, если букв и чисел поровну окажется, программы выдаст, что чисел больше.

Answer 4

это для того чтобы он считал и болишие и маленькие буквы

Answer 5

да я после того как добавил додумал просто добавь if(k=l) then write('одинаковое число букв и чисел');

Answer 6

Ну тогда еще и русские добавьте... зачем писать то, чего не требуется?