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

Шахрия · 01.11.2009, 17:00

Кто-нибудь может мне помочь? Пожалуйста!

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

Вавел из ГМТУ · 01.11.2009, 17:03

В цикле for идёшь до конца строки. Попалась цифра -> прибавляеш.
После цикла проверка if summ = Length(S) Then ....

ОДИНОЧЕСТВО В СЕТИ · 01.11.2009, 17:17

Код:

s:=0;
for i:=1 to length(st) do
if st[i] in ['0'..'9'] then s:=s+ord(st[i])-ord('0');
if s= length(st) then writeln('ravno')
else writeln('neravno');

Шахрия · 02.11.2009, 12:49

Благодарю!

01.11.2009, 17:00	#1
Шахрия Регистрация: 13.10.2009 Сообщений: 7	Строки в паскале Кто-нибудь может мне помочь? Пожалуйста! Дан текст из букв и цифр. Определить, равна ли длина текста сумме числовых значений цифр, входящих в текст.

01.11.2009, 17:17	#3
ОДИНОЧЕСТВО В СЕТИ Любопытная Вредина Участник клуба Регистрация: 19.06.2009 Сообщений: 1,285	Код: `s:=0; for i:=1 to length(st) do if st[i] in ['0'..'9'] then s:=s+ord(st[i])-ord('0'); if s= length(st) then writeln('ravno') else writeln('neravno');` Дурь - это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Строки в паскале!	vlad1991	Помощь студентам	3	11.11.2010 22:18
Строки в Паскале	istragon	Помощь студентам	6	28.12.2009 18:18
Строки в Паскале	COLD	Помощь студентам	2	28.05.2009 14:46
строки в паскале	Sarumjan	Помощь студентам	3	03.12.2008 16:32
Строки в паскале	Exact	Паскаль, Turbo Pascal, PascalABC.NET	8	08.02.2008 20:45

01.11.2009, 17:03	#2
Вавел из ГМТУ Форумчанин Регистрация: 19.06.2009 Сообщений: 896	В цикле for идёшь до конца строки. Попалась цифра -> прибавляеш. После цикла проверка if summ = Length(S) Then ....

02.11.2009, 12:49	#4
Шахрия Регистрация: 13.10.2009 Сообщений: 7	Благодарю!