Question

Помогите, пожалуйста, с информатикой. Нужно составить программу которая удалит из текста все цифры( использование pos,copy,delete,insert)

Answer 1

for i:=1 to length(s) do if s[i] in ['1'..'9'] then sum:=sum+ord(s[i])-48;//здесь ноли не считаем, от них сумма не меняется writeln('Сумма цифр в тексте='sum); if sum>5 then  begin   for i:=lengrh(s) downto 1 do   if s[i] in ['0'..'9'] then delete(s,i,1);   write(s);  end else write('Цифры не удаляются!');

Answer 2

ВОТ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

43b8dce1dfb506c9dae002d604dc13fc.docx