Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Leshiy27
Страж леса
25 / 25 / 24
Регистрация: 13.12.2012
Сообщений: 146
#1

Вычислить сумму цифр, входящих в строку - Delphi

23.12.2012, 21:07. Просмотров 608. Ответов 1
Метки нет (Все метки)

Привет всем. Помогите пожалуйста! Вот задачка: дана строка, состоящая из букв и цифр. Вычислить сумму цифр, входящих в строку.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.12.2012, 21:07
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычислить сумму цифр, входящих в строку (Delphi):

В строке, состоящей из букв и цифр, найти сумму всех цифр, входящих в эту строку
дана строка, состоящая из букв и цифр. Найти сумму всех цифр, входящих в эту...

Найти сумму всех цифр, входящих в строку и удалить эти цифры.
Дана строка, состоящая из букв и цифр. Найти сумму всех цифр, входящих в эту...

Вычислить количество цифр и сумму цифр произвольного числа
Попалась такая задача,в принципе казало бы не сложная,но для меня создает...

Дан текст. Вычислить сумму чисел, входящих в этот текст
дан текст. вычислить сумму чисел, входящих в этот текст

Проверить, можно ли из букв, входящих в строку А, составить строку В
Даны две строки А и В. составить программу, проверяющую, можно ли из букв,...

Дано натуральное число n. Вычислить сумму его цифр
Дано натуральное число n. Вычислить сумму его цифр.

1
Enthusiast
3 / 3 / 2
Регистрация: 12.10.2012
Сообщений: 21
24.12.2012, 00:04 #2
Лучший ответ Сообщение было отмечено Leshiy27 как решение

Решение

Leshiy27,
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program GetNumbers;
const
  Numbers: set of Char = ['0'..'9'];
var
  MyString: String;
  Result, i: Integer;
begin
  MyString := '12ax67m3';
  Result := 0;
  
  for i := 1 to Length(MyString) do
  begin
    if MyString[i] in Numbers then
      Result := Result + StrToInt(MyString[i])
  end;
 
  WriteLn(Result) // Ответ 19   
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.12.2012, 00:04
Привет! Вот еще темы с решениями:

печать букв, входящих в строку больше К раз
Создать приложение, предлагающее пользователю ввести строку текста, затем...

Работа с числами. Циклический сдвиг; уменьшение значения цифр, входящих в число.
Визуальная среда delphi. _____ Раз: Дано целое число. Уменьшить каждую цифру...

Работа с числами. Циклический сдвиг; уменьшение значения цифр, входящих в число.
Визуальная среда delphi. _____ Раз: Дано целое число. Уменьшить каждую цифру...

Составить программу, которая выводила множество цифр, входящих в изображение числа N, которые не входят в изоб
Пусть заданы два натуральных числа N и M. Составить программу, которая выводила...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru