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('Цифры не удаляются!');
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
