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

@87781891293 · Регистрация: 28.02.2013

5. Имеется строка, содержащая буквы латинского алфавита и цифры. Вывести на экран только буквы и подсчитать количество букв

@CodeR · 07.03.2013, 10:14

Pascal

For i:=1 to Length(s) do
 if UpCase(s[i]) in ['A'..'Z'] then 
 Begin
   write(s[i]);
   inc(k);
 End;
writeln;
writeln('Букв = ',k);

@87781891293 0 / 0 / 0 Регистрация: 28.02.2013 Сообщений: 40
		1
	Вывести на экран буквы и подсчитать их количество 07.03.2013, 09:45. Показов 1258. Ответов 1 Метки нет (Все метки) 5. Имеется строка, содержащая буквы латинского алфавита и цифры. Вывести на экран только буквы и подсчитать количество букв 0

	07.03.2013, 10:14

Решение