Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.