С клавиатуры вводят строку, состоящую из латинских букв и цифр. Написать программу, которая вычисляет сумму цифр, попадающихся в этой строке, а также выводящую строку после исключения из неё этих цифр. Для паскаль abc.

program zz1;

var s:string; / / задаем переменную строкового типа

i, k:integer; / / задаем переменные целого типа

begin

write (' введите строку ');

read (s); / / вводим с клавиатуры строку

for i:=length (s) downto 1 do / / организуем цикл, в котором переберем все символы от последнего до первого

begin

if (s[i] = '0') or (s[i] = '1') or (s[i] = '2') or (s[i] = '3') or (s[i] = '4') or (s[i] = '5') or (s[i] = '6') or (s[i] = '7') or (s[i] = '8') or (s[i] = '9')

then begin k:=k+ord (s[i]) - 48; delete (s, i, 1); end;

end;

writeln (' полученная сумма = ', k);

write ('полученная строка = ', s);

end.