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

A.S.W · 07.01.2010, 15:15

Подсчитайте сумму цифр,встречающихся в строке.

Alex Cones · 07.01.2010, 15:16

Сделаю за 50 руб, ася ниже.

Serge_Bliznykov · 07.01.2010, 17:19

Код:

Sum := 0;
for i:=1 to Length(s) do
  if s[i] in ['1'..'9'] then Sum := Sum + ord(s[i])-ord('0');
WriteLn('Summa = ',Sum);

07.01.2010, 15:15	#1
A.S.W Пользователь Регистрация: 16.12.2009 Сообщений: 39	Строки в паскале Подсчитайте сумму цифр,встречающихся в строке.

07.01.2010, 15:16	#2
Alex Cones Trust no one. Старожил Регистрация: 07.04.2009 Сообщений: 6,526	Сделаю за 50 руб, ася ниже. SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА. МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ

07.01.2010, 17:19	#3
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	Код: `Sum := 0; for i:=1 to Length(s) do if s[i] in ['1'..'9'] then Sum := Sum + ord(s[i])-ord('0'); WriteLn('Summa = ',Sum);`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Строки в Паскале.	hohol90	Помощь студентам	4	10.12.2009 15:09
Строки В ПАСКАЛЕ	hohol90	Помощь студентам	2	03.12.2009 16:31
Строки с паскале	Dog	Помощь студентам	2	11.10.2009 19:49
строки в паскале	Странница	Паскаль, Turbo Pascal, PascalABC.NET	0	03.06.2009 20:49
строки в паскале	Sarumjan	Помощь студентам	3	03.12.2008 16:32