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

Ответы 6

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

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

      finnukn4
    • 6 лет назад
    • 0
  • это для того чтобы он считал и болишие и маленькие буквы
    • Автор:

      duckyz2gi
    • 6 лет назад
    • 0
  • да я после того как добавил додумал просто добавь if(k=l) then write('одинаковое число букв и чисел');
  • Ну тогда еще и русские добавьте... зачем писать то, чего не требуется?
    • Автор:

      eviemckay
    • 6 лет назад
    • 0
  • PROGRAM LOL;VAR S:STRING;I,K,L:INTEGER;BEGINREADLN(S);for i:=1 to length(s) dobeginif ('a'<=s[i]) and (s[i]<='z') thenk:=k+1;if('A'<=s[i]) and (s[i]<='Z') thenk:= k+1;if ('0'<=s[i]) and (s[i]<='9') thenl:=l+1;end;if(k>l) then write('в тексте больше букв')else write('в тексте больше чисел');end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years