VPF::Помогите с задачей по строкам.

Zoltan

Дата 1.4.2008, 17:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 1.4.2008

Репутация: нет
Всего: нет

Подскажите, пожалуйста, как решить задачу: Найти сумму цифр, содержащихся в заданной строкеи удалить все цифры "0". Вывести строку. Затем удалить все нецифровые символы.
Всё сделал кроме нахождения суммы.

Вот код:

Код


program ***;
var
    s:string;
    i:Byte;
begin
    WriteLn('Ishodnaya stroka');
    ReadLn(s);
repeat
    i:=pos('0',s);
    if i>0 then delete(s,i,1);
until i=0;
WriteLn(s);
    for i:=1 to length(s) do
    if s[i] in ['0'..'9'] then
    write(s[i]);
end.

volvo877

Дата 2.4.2008, 11:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(Zoltan @ 1.4.2008, 16:38

)

Всё сделал кроме нахождения суммы.

Неправда... Ты не удалил все нецифровые символы из строки. Вывел все цифры, это прекрасно, но задача была поставлена - удалить все, кроме цифр...

Вот так:

Код

sum := 0;
for i := length(s) downto 1 do
  if s[i] in ['0' .. '9'] then sum := sum + (ord(s[i]) - ord('0'))
  else delete(s, i, 1);

writeln('sum = ', sum);
writeln('s = ', s);

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »