Snezhana123
Опубликовано 7 лет назад по предмету Информатика от Snezhana123


пожалуйста, очень надо 

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

  1. Ответ
    Ответ дан sinbad7

    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.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц