Не могу справиться с заданием!

[жук13]

1. Написать алгоритм для решения задачи:
«Число делится на 11, если разность между суммой цифр на четных и нечетных местах делится на 11. Проверить это факт для всех чисел заданного диапазона».
2. Напишите программу для решения задачи: «Заменить в строке все целые числа соответствующим повторением следующего за ними символа (например "abc5xacb15y" - " abcxxxxxacbyyyyyyyyyyyyyyy ")».

Заранее спасибо!

[Valio]

Не могу справиться с заданием!

Тоже не получилось. Видать задание КМС по боксу (

Наработки где?

[denisbrain]

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

Тоже не получилось. Видать задание КМС по боксу (

Наработки где?

{

2. Напишите программу для решения задачи: «Заменить в строке все целые числа
соответствующим повторением следующего за ними символа (например "abc5xacb15y" - " abcxxxxxacbyyyyyyyyyyyyyyy ")».

}


  function ReplaceAllInt(S:string):string;
  var m,l,x,y:integer;
  sint,s2:string;
  begin
  s2:='';
    l:=length(s);
    x:=1;
    while x<l do begin
      if s[x] in ['0'..'9'] then begin
      sint:=s[x];
      y:=x;
       for y:=x+1 to l do
        if s[y] in ['0'..'9'] then sint:=sint+s[y] else break;

        for m:=1 to strtoint(sint) do s2:=s2+s[y];

      end else s2:=s2+s[x];
      ReplaceAllInt:=s2;
      x:=x+1;
      end;
      
  end;

[жук13]

Огромное спасибо тебе, а первое задание не знаешь как сделать?

[Hacker19_90]

#1 код для поиска разности сумм! проверку сами сделаете!

readln (num);
pos = 0;
sum1 = 0;
sum2 = 0;
while num <> 0 do
begin
  inc(pos);
  if odd(pos) then inc(sum1, num mod 10)
  else inc(sum2, num mod 10)
  num := num div 10;
end;
if ((sum2 - sum1) mod 11) = 0 then writeln(num);

[жук13]

Спасибо большое!

[denisbrain]

Сообщение от жук13

Спасибо большое!

если личка не доступна напиши на почту аську или вконтакт

[Hacker19_90]

если личка не доступна напиши на почту аську или вконтакт

это чё это вдруг?