Задачи на обработку строк

[Katia_Vasilyeva]

твое выделывание будет и дальше только поднимать настроение

как мило :3

[TinMan]

(про пост №10)
Хорошо, Катюш, но у тебя тут нет проверки на корректность записи. Например, вот такая строка:
3B6 (тут латинское B вставлено)
- тоже пройдет как "йес"

И потом - разве это №1?.. 8-0

[Son Of Pain]

Сообщение от Katia_Vasilyeva

вот первая :

Молодец, все работает, только если начать строку с пробела или вставить больше одного пробела между словами - случится беда )

[Katia_Vasilyeva]

Сообщение от TinMan

(про пост №10)
Хорошо, Катюш, но у тебя тут нет проверки на корректность записи. Например, вот такая строка:
3B6 (тут латинское B вставлено)
- тоже пройдет как "йес"

И потом - разве это №1?.. 8-0

это не то
..........

[Katia_Vasilyeva]

случится беда

тогда вот так

uses crt;
var
    str: string;
    i,k,sum,err: integer;
begin
   sum := 0;
   write('str=');
   readln(str);
   for i:=1 to Length(str) do
   begin
      val(str[i], k, err);
      sum := sum + k;
   end;
   if sum mod 9 = 0 then
      writeln('yes')
   else writeln('no');
end.

[Son Of Pain]

На самом деле ты можешь просто писать

if str[i] in ['0'..'9'] then добавить к сумме else сразу сказать юзеру, что он не прав

Но я писал про беду в другой задаче )

[TinMan]

Сообщение от Son Of Pain

Но я писал про беду в другой задаче )

Да, Кать, ты опять все перепутала.. ))
Вот так imho должно выглядеть решение №2

var
   s: string;
   i,k,sum: integer;
begin
   sum := 0;
   write('s=');
   readln(s);
   while (Length(s)>0) and (s[1]=' ') do Delete(s,1,1);  // убираем начальные пробелы
   while s[Length(s)]=' ' do Delete(s,Length(s),1);  // убираем конечные пробелы
   for i:=1 to Length(s) do
      if s[i] in ['0'..'9'] then
         sum := sum + Ord(s[i]) - 48
      else begin
         sum:= 1;   // хитрый трюк ))
         break
      end;
   if sum mod 9 = 0 then
      writeln('yes')
   else writeln('no');
end.

Я снова вернулся к Ord, так проще.
Тут хитрый трюк есть, чтоб избежать усложнения структуры.. ))
И еще - я заменил str на s. Не надо использовать названия процедур из стандартных бибилиотек для своих переменных.