Строки

[БлондинкО_о]

Пара задач по строкам.
1. Напечатать номера позиций на которых во введенной строке стоят римские цифры I, V, X, L, M.
2. Проверить, указывает ли строка Х требованию - сумма числовых значений цифр, входящих в Х равна длине строки Х
3. В заданной строке Х найти слово, в котором больше всего арабских цифр.

[Niro]

Вообще-то пара это два, а не три.
И Вы решайте, пытайтесь, думайте не стесняйтесь, а мы уж поможем

[Sasha_Smirnov]

Сообщение от БлондинкО_о

3. В заданной строке Х найти слово, в котором больше всего арабских цифр.

Вообще-то слово обычно содержит буквы и дефис(ы).

Это должны быть слова типа 100-летие, 2-метилбутан, C2H5OH?

Или чисто числа: 1; 2,25; ¼; 10²²?.. Довольно сложная задачка!

Сообщение от БлондинкО_о

2. Проверить, указывает ли строка Х требованию - сумма числовых значений цифр, входящих в Х, равна длине строки Х.

Та-ак... Я не блондин и не допру: скажем, строка 1.5 л. — значит, сумма 6 и ответ True, да?

[Stilet]

var s:string;i,k,e,sum:integer;
begin
 s:='1.5 л.';sum:=0;
 for i:=1 to Length(s) do begin
   if s[i] in ['I', 'V', 'X', 'L', 'M'] then write(i:5);
   val(s[i],k,e);if e=0 then sum:=sum+k;
 end;
 if sum=length(s) then
  Writeln('сумма числовых значений цифр, входящих в Х, равна длине строки Х.')
 else
  Writeln('сумма числовых значений цифр, входящих в Х, не равна длине строки Х.')
end.

По поводу третьего, я давал пример разбиения строки на массив слов, поищи его на форуме.