Дан текст из строчных латинских букв и цифр ,определить чего больше в этом тексте букв или цифр.
Где текст? :/
любой текст
программирование .паскаль АВС
Берем из файла?Или забиваем в программе?
Язык программирования, указанный в комментарии, не учитывается. Сейчас сюда можно дать решение на Бейсике, JAVA, С++/С#, Python или вообще любом языке.
Вставляйте требуемый язык и т.п. в вопрос !!!
забиваем в программеэ
паскаль авс
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<br>k:=k+1; if('A'<=s[i]) and (s[i]<='Z') then<br>k:= k+1; if ('0'<=s[i]) and (s[i]<='9') then<br>l:=l+1;end; if(k>l) then write('в тексте больше букв') else write('в тексте больше чисел'); end.
if('A'<=s[i]) and (s[i]<='Z') then<br>k:= k+1; - это зачем? По условию латинские буквы строчные.
А еще, если букв и чисел поровну окажется, программы выдаст, что чисел больше.
это для того чтобы он считал и болишие и маленькие буквы
да я после того как добавил додумал просто добавь if(k=l) then write('одинаковое число букв и чисел');
Ну тогда еще и русские добавьте... зачем писать то, чего не требуется?