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

Var   s: string; i,n : integer; begin   s: =''; n: =0;     readln(s); for i: =1 to length(s) do if s[i] in ['а'..'я'] then n: =n+1; writeln(n); end.будет искать  количество  прописных букв.

#include < iostream> #include < string> typedef std: : string str; str reacttomark(); int main() {       str mark = reacttomark();       std: : cout < < mark < < '\n';       return 0; } str reacttomark() {       int mark;       std: : cout < < "оценка: ";       std: : cin > > mark;       switch (mark) {       case 1:             return " плохо, надо мне прийти в школу";       case 2:             return "плохо, я тобой недовольна";       case 3:             return "мог бы и лучше";       case 4:             return "хорошо, но пятёрка лучше";       case 5:             return "молодец, на выходных пойдёшь в кино";       default:             std: : cout < < ", введи правильную оценку! " < < '\n';             return reacttomark();       } }

Const n=5; type mass=array[1..n] of integer; var  i,p,s: integer;             a: mass; begin        p: =1;       s: =0;         for i: =1 to n do          read (a[i]);         for i: =1 to n do        if (a[i] mod 3)=0 and (a[i]mod 2)< > 0 then                  begin                      s: =s+a[i];                     p: =p*a[i];                 end;       writeln('summ= ', s);       writeln('proizvedinie= ', p); end.