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

Var s,al:string;a,i:integer;
begin
read(s);
al:=1234567890;
i:=length(s);
while i>0 do begin
if poa(s[i],al)<>0 then begin a:=a+strtoint(s[i]);delete(s,i,1);end;
i:=i-1;
end;
writeln(Сумма: ,a);
writeln(Строка без цифр: ,s);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.