Учеба и наука
Pascal - вопрос №152349
Помогите пожалуйста!!! С клавиатуры вводят строку. Составьте программу, которая: а) подсчитывает количество букв в строке (исключая пробелы и цифры) б) подсчитывает количество прописных букв. Заранее спасибо.
ноябрь 28, 2011 г.
-
Всего ответов: 1
-
var s:string; i,a,b:integer;
begin
a:=0;
b:=0;
readln(s);
for i:=0 to length(s)-1 do
begin
if s[i]>'а' then inc(a);
if s[i]>'А' then inc(b);
end;
writeln(a,' ',b);
end.
Похожие вопросы
Решено
В некоторой стране автомобильный номер длиной 6 символов составляется из заглавных букв
сентябрь 19, 2013 г.
Учеба и наука