Определить, сколько раз в строке встречается буква a, сколько цифр и сколько заглавных букв

@3JIodeu · Регистрация: 23.11.2012

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

4)Вводится строка символов, заканчивающаяся точкой. Определите, сколько раз в ней встречается латинская буква a, сколько цифр и сколько заглавных букв.

@orange_rush · 23.11.2012, 14:46

Pascal

var
mnN: set of 0..9;
mnZ: set of byte;
i,ca,cn,cz: byte;
s: string;
c: char;
begin
        for i:=65 to 90 do mnZ:=mnZ+[i];
        for i:=0 to 9 do mnN:=mnN+[i];
        write('vvedite stroku: ');
        readln(s);
        for i:=1 to length(s) do begin
                if s[i]='a' then Inc(ca);
                if s[i]='A' then Inc(ca);
                if ord(s[i])-48 in mnN then Inc(cn);
                if ord(s[i]) in mnZ then Inc(cz);
        end;
        writeln('букв а: ',ca,' ,цифр: ',cn,' ,заглавных букв: ',cz);
        readln;
end.

@3JIodeu · 23.11.2012, 14:48 **[ТС]**

Спасибо большое))))

@3JIodeu 0 / 0 / 0 Регистрация: 23.11.2012 Сообщений: 12
		1
	Определить, сколько раз в строке встречается буква a, сколько цифр и сколько заглавных букв 23.11.2012, 12:37. Показов 4520. Ответов 2 Метки нет (Все метки) 4)Вводится строка символов, заканчивающаяся точкой. Определите, сколько раз в ней встречается латинская буква a, сколько цифр и сколько заглавных букв. 0

@3JIodeu 0 / 0 / 0 Регистрация: 23.11.2012 Сообщений: 12
	23.11.2012, 14:48 [ТС]	3
	Спасибо большое)))) 0

Определить, сколько раз в строке встречается буква a, сколько цифр и сколько заглавных букв

Решение