Ввести строку. Подсчитать сколько раз в ней встречаются строчные и сколько раз заглавные русские буквы

@,Cherry · Регистрация: 11.04.2012

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

Всем привет. Очень хотелось бы что бы помогли с решением данной задачи.
Ввести строку. Подсчитать сколько раз в ней встречаются строчные и сколько раз заглавные русские буквы.
заранее спасибо!

@nnkut · 16.05.2012, 21:28

Pascal

program x;
Var s:string;
     i,c1,c2:integer;
begin
s:='ПРивет';
c1:=0;
c2:=0;
for i:=1 to length(s) do
  if s in ['А'..'Я'] then inc{c1} else inc{c2};
end.

@,Cherry · 16.05.2012, 21:43 **[ТС]**

...только программа не рабочая..?

@КонецСвета · 17.05.2012, 02:33

Pascal

uses crt;
var s:string;
     i,c1,c2:byte;
begin
write('s='); readln(s);
for i:=1 to length(s) do
  if s[i] in ['А'..'Я'] then inc(c1) else
     if s[i] in ['а'..'я'] then inc(c2);
writeln('Заглавных ',c1);
writeln('Строчных ',c2);
readln;
end.

@,Cherry 0 / 0 / 0 Регистрация: 11.04.2012 Сообщений: 8
		1
	Ввести строку. Подсчитать сколько раз в ней встречаются строчные и сколько раз заглавные русские буквы 16.05.2012, 21:20. Показов 1198. Ответов 3 Метки нет (Все метки) Всем привет. Очень хотелось бы что бы помогли с решением данной задачи. Ввести строку. Подсчитать сколько раз в ней встречаются строчные и сколько раз заглавные русские буквы. заранее спасибо! 0

@,Cherry 0 / 0 / 0 Регистрация: 11.04.2012 Сообщений: 8
	16.05.2012, 21:43 [ТС]	3
	...только программа не рабочая..? 0

Опции темы