61

Пожалуйста, очень надо с клавиатуры вводят строку. Составьте программу которая…

17 февраля 2023

Пожалуйста, очень надо с клавиатуры вводят строку. Составьте программу которая подсчитывает количество прописныхбукв

категория: информатика



59

vari,j,k: integer; s,p: string; beginp: ='ABCDEFGHIJKLMNOPQRSTUVWXYZАБВГДЕЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'; readln (s); k: =0; for i: =1 to length (s) dofor j: =1 to length (p) doif s[i]=p[j] then k: =k+1; writeln (k); end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...