Найти в строке D число Y и разделить его на N.

[idelmachine]

Найти в строке D число Y и разделить его на N. Записать результат деления в строку D вместо числа Y. Вывести на экран символьную строку до и после изменения. Заранее Спасибо.

[Serge_Bliznykov]

что не получается?

[idelmachine]

Желательно бы полное решение

[p51x]

Раздел фриланса ниже.

[Вадим Мошев]

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

Найти в строке D число Y и разделить его на N. Записать результат деления в строку D вместо числа Y. Вывести на экран символьную строку до и после изменения. Заранее Спасибо.

Я смогу вам решить вам эту/эти задачу(и) за некоторое денежное вознаграждение. Если вы согласны, напишите мне на адрес электронной почты: vadimFreelance ([co6аkа}] yandex {{тoчka}] ru
В общении через почту обсудим дальнейшую работу.

Подробнее у меня по ссылке в подписи:

см. ниже

[digitalis]

Я даже за 5$ не взялся бы такое решать.
Вот интересно: "в строке найти число". Тут можно интерпретировать как хошь.
В строке "да_ну_его56_на_фиг" есть число 56 ? А в строке "совсем.другое56.00дело" ?
В который раз уже не перестаю удивляться идиотизму задаваемых заданий. Отсюда и наши достижения. Можешь что-то делать - делай. Ничего не можешь - учи других.

[newerow1989]

var d,ys,res:string;
    y,n,i,len:integer;
    r:real;
begin
   Write('D = '); Readln(d);
   Write('Y = '); Readln(y);
   Write('N = '); Readln(n);
   d:=' '+d+' ';
   ys:=IntToStr(y);
   r:=y/n;
   res:=FloatToStr(r);
   len:=Length(ys);
   For i:=Length(d)-len downto 1 do
      If Copy(d,i,len+2)=' '+ys+' ' then
      begin
         Delete(d,i,len+2);
         Insert(' '+res+' ',d,i);
      end;
   Delete(d,1,1);
   Delete(d,Length(d),1);
   Writeln(d);
   Readln;
end.