4 задачи и куча вопросов...., практика..... Опции

[Анка]

volvo, я не знаю, что делать..... а столбцы это я с Romtek`ом обсуждала........ у меня ничего не идет.............. :bye2: в строках у меня при любой случайной генерации выдается сообщение, что букв и цифр поровну................................

[volvo]

My fault ... Извиняюсь, я просто поставил лишнюю запятую... Вот так измени (то, что я тебе раньше давал):

  { а здесь - собственно обработка строки (если нужно) }
  if(str_ok) then begin

    cifri:=0; bukvi:=0;

    for i := 1 to length(str) do
      if upcase(str[i]) in ['A'..'Z'] then bukvi:=bukvi + 1
      else if str[i] in ['0'..'9'] then cifri:=cifri + 1;

    if bukvi>cifri then writeln ('V dannoi stroke bol`she bukv')
    else if cifri>bukvi then writeln ('V dannoi stroke bol`she cifr') {; <--- запятой быть НЕ ДОЛЖНО !!!  }
           else writeln ('V dannoi stroke bukv i cifr porovnu');
  end;

[Анка]

volvo, я ее и не ставила..... правила я знаю...... но мне от этого не легче....

[volvo]

Проверь PM ...