пожалуйста, очень надо с клавиатуры вводят строку. Составьте программу которая подсчитывает количество прописных букв
10-11 класс
|
var
i,j,k:integer;
s,p:string;
begin
p:='ABCDEFGHIJKLMNOPQRSTUVWXYZАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
readln(s);
k:=0;
for i:=1 to length(s) do
for j:=1 to length(p) do
if s[i]=p[j] then k:=k+1;
writeln(k);
end.
Другие вопросы из категории
Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите разность наибольшего и наименьшего элементов. Выведите на экран полученный массив и полученную разность.
количеством бит. Определите информационный объём сообщения длинной в 180 символов.
UNICOD)? ответ необходимо дать в Мбайтах
Читайте также
последняя буквы слова
в)выводт на экран первый,второй и последний символы
г)определяет,чётно или нечётно количество символов в нём
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.