дана строка символов состоящая из букв и цифр определить сумму всех цифр в этой ...

September 2021 1 19 Report

дана строка символов состоящая из букв и цифр определить сумму всех цифр в этой сроке и количество прописных заглавных букв на PASCAL

Answers & Comments

archery

Verified answer

Var
    s: string;
    i, sum, k: integer;

begin
    readln(s);
    for i := 1 to Length(s) do
    begin
        if s[i] in '0123456789' then sum := sum + StrToInt(s[i])
        else if s[i] in 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' then k := k + 1;
    end;
    writeln(sum, ' ', k);
end.

0 votes Thanks 0

Answers & Comments

Verified answer

deti v 4 kasse dolzhny chitat 170 simvolov v minutupredpolozhim chto pri zapisi t

analiz rasskaza chehova chelovek v futlyaretema epitety metafora i vse takoe ba

skolko bajt v 223 bitah

reshite pozhalujsta kompleksnye chisla 52i3 5i

kompyuter prinyal soobshenie obyom kotorogo bolshe 4 h kilobajt kakoe utverzhdenie

kakaya glubina cveta dlya rastrovogo izobrazheniya ispolzuyushego dlya kodirovki pikse

kakoe kolichestvo kbajt nuzhno dlya zapisi cvetnogo rastrovogo izobrazheniya zanimayush

vychislenie obema tela vrasheniya s pomoshyu opredelennogo integrala 1yx3 y

ocenite prodolzhitelnost zvuchaniya audiofajla razmerom 60 mb esli on byl zakodir

dana stroka simvolov sostoyashaya iz bukv i cifr opredelit summu vseh cifr v etoja1fe58e9777ea35d788c42cf6c0ace84 61866

рекомендуемые вопросы

Helpful Links

Helpful Social