С клавиатуры вводят строку, состоящую из латинских букв и цифр. Написать программу,...

Question

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

Answer 1

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.