Надо с клавиатуры вводят строку. составьте программу которая подсчитывает количество прописных букв
ШтанУдачи
2
02.03.2019 03:00
2
Другие вопросы по теме Информатика
Ekaterina090909
23.04.2022 20:13
Diana2004250
23.04.2022 20:10
zalomnovavk
23.04.2022 16:45
Dashakaef
23.05.2019 04:00
Pooster
23.05.2019 04:00
danilkarev201
04.02.2021 14:06
petrovspb
04.02.2021 14:08
hatidzemustafaeva
23.05.2019 22:50
Популярные вопросы
- Высота предмета 10см, а высота изображения 0.02м. найдите увеличение...
1 - Угол падения светового луча из воздуха к поверхности жидкости равен...
2 - Из100ручек 37красных 8зеленых 7фиолетовых синих и черных поровну,вероятность...
3 - Один из углов прямоугольника трекгольника рпвен 56 градуссов.найдите...
1 - Охарактеризуйте дедушку и то, как алёша относился к нему из рассказа...
3 - Составить 5 типов вопросов на языке 1.we go to the hospital now. 2.i...
3 - Какая формула применяется для расчета мощности? а)n=f•s б)n=a•t в)n=a/t...
1 - Что значит чувствовать чужую боль? сочинение...
3 - Замініти більші одиниці вимірювання часу меньшими 1 рік=12 міс 5 років=60...
3 - Расставьте запятые и составьте схемы предложений. 1. надвигалась гроза...
1
var
i,j,k:integer;
s,p:string;
begin
p:='';
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.