Если среди символов встречаются цифры, то найти их сумму

@7parc · Регистрация: 17.10.2013

Студворк — интернет-сервис помощи студентам

с клавиатуры вводится 20 символов ,, если среди них свтречаются символы цифры, то найти их сумму.
Помогите плиз!

@ermolay · 29.10.2013, 08:43

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  i,t,k,sum: integer;
  ch: char;
begin
  for i:=1 to 20 do
  begin
    write('Ââåäèòå ',i,'-é ñèìâîë: ');
    readln(ch);
    if ch in ['0'..'9'] then
    begin
      val(ch,t,k);
      sum:=sum+t;
    end;
  end;
  writeln('Sum = ',sum);
  readln;
end.

@7parc · 29.10.2013, 21:08 **[ТС]**

а можно приер через массив плиз!

@ermolay · 29.10.2013, 21:27

7parc, а конкретно что препод сказал? может через строку (string) нужно решение? (строка - это массив символов)..

Добавлено через 5 минут
вот через массив, обычный:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const
  n=20;
var
  a: array[1..n] of char;
  i,t,k,sum: integer;
begin
  for i:=1 to n do
  begin
    write('Ââåäèòå ',i,'-é ñèìâîë: ');
    readln(a[i]);
    if a[i] in ['0'..'9'] then
    begin
      val(a[i],t,k);
      sum:=sum+t;
    end;
  end;
  writeln('Sum = ',sum);
  readln;
end.

но он (массив) здесь нужен как ступа на подводной лодке

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 03.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .	wmic не является внутренней или внешней командой Maks 03.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 01.04.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@7parc 0 / 0 / 0 Регистрация: 17.10.2013 Сообщений: 43

	Если среди символов встречаются цифры, то найти их сумму 28.10.2013, 21:40. Показов 1304. Ответов 3 Метки нет (Все метки) с клавиатуры вводится 20 символов ,, если среди них свтречаются символы цифры, то найти их сумму. Помогите плиз! 0

@7parc 0 / 0 / 0 Регистрация: 17.10.2013 Сообщений: 43
	29.10.2013, 21:08 [ТС]
	а можно приер через массив плиз! 0

Если среди символов встречаются цифры, то найти их сумму

Решение

Решение