Из строки удалить все пробелы с цифрами и посчитать прописные буквы

@BAPOHA · Регистрация: 12.11.2011

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

Как из строки удалить все пробелы с цифрами и посчитать прописные буквы? Подскажите пожалуйста.

@КонецСвета · 18.11.2011, 20:20

Pascal

uses crt;
var sb,s,sn: string;
    i,k: integer;
begin
sb:='QWERTYUIOPASDFGHJKLZXCVBNMЦУКЕНГШЩЗХФВАПРОЛДЖЭЯЧСМИТБЮЙЫЪЬ';
sn:='';
write ('s=');
readln (s);
for i:=1 to length (s) DO
    begin
    if pos(s[i],sb)<>0 then inc(k);
    if s[i] in [' ','0','1','2','3','4','5','6','7','8','9'] then
       sn:=sn+''
       else sn:=sn+s[i];
    end;
writeln ('s=',sn);
write ('Прописных ',k);
end.

@BAPOHA · 19.11.2011, 17:25 **[ТС]**

Спасибо большое, но уже сделал

@BAPOHA 0 / 0 / 0 Регистрация: 12.11.2011 Сообщений: 4
		1
	Из строки удалить все пробелы с цифрами и посчитать прописные буквы 17.11.2011, 20:44. Показов 1275. Ответов 2 Метки нет (Все метки) Как из строки удалить все пробелы с цифрами и посчитать прописные буквы? Подскажите пожалуйста. 0

@BAPOHA 0 / 0 / 0 Регистрация: 12.11.2011 Сообщений: 4
	19.11.2011, 17:25 [ТС]	3
	Спасибо большое, но уже сделал 0

Из строки удалить все пробелы с цифрами и посчитать прописные буквы

Решение