Во введенном тексте подсчитать количество прописных и заглавных букв

@CentSergey · Регистрация: 09.03.2013

Author24 — интернет-сервис помощи студентам

Введенном тексте подсчитать кол-во прописных и заглавных букв

Добавлено через 4 часа 37 минут
очень надо, помогите

@BaboshinSD · 16.03.2013, 19:42

CentSergey, держи

Pascal

var
  a, b, i: integer;
  s: string;
 
begin
  ReadLn(s);
  for i := 1 to s.Length do
    if s[i] = UpCase(s[i]) then Inc(a) else Inc(b);
  WriteLn('Заглавных букв - ', a);
  WriteLn('Прописных букв - ', b);
end.

@CentSergey · 16.03.2013, 21:40 **[ТС]**

что означает эта строчка
if s[i] = UpCase(s[i]) then Inc(a) else Inc(b);
и чем можно заменить

@VEID · 16.03.2013, 22:06

CentSergey,
Эта строчка сравнивает текущий символ строки с его заглавным аналогом. То есть, если символ сам заглавный, то он будет равен своему заглавному аналогу(то есть самому себе) и увеличивается один счётчик, иначе увеличится другой. Заменить вроде ничем нельзя.

@CentSergey 0 / 0 / 2 Регистрация: 09.03.2013 Сообщений: 43
		1
	Во введенном тексте подсчитать количество прописных и заглавных букв 16.03.2013, 18:11. Показов 1718. Ответов 3 Метки нет (Все метки) Введенном тексте подсчитать кол-во прописных и заглавных букв Добавлено через 4 часа 37 минут очень надо, помогите 0

@CentSergey 0 / 0 / 2 Регистрация: 09.03.2013 Сообщений: 43
	16.03.2013, 21:40 [ТС]	3
	что означает эта строчка if s[i] = UpCase(s[i]) then Inc(a) else Inc(b); и чем можно заменить 0

@VEID 7 / 7 / 3 Регистрация: 25.01.2013 Сообщений: 21
	16.03.2013, 22:06	4
	CentSergey, Эта строчка сравнивает текущий символ строки с его заглавным аналогом. То есть, если символ сам заглавный, то он будет равен своему заглавному аналогу(то есть самому себе) и увеличивается один счётчик, иначе увеличится другой. Заменить вроде ничем нельзя. 1