задание дан здоровое число m. Чисел строка 123456789 между ними некоторыми надо вставить знак плюс + или минус - ,чтобы все былобы равно числу m.
пример если m=1 то тогда так 1+2-34+56-7-8-9 подходит.
заполните пропущеные места (отмеченые многоточием).
нельзя использовать дополнительных переменных и нельзя никак изменять текст.
вот программа.

program zenkluIsdestymas;
  var t : array[2..9] of string;  {в массиве распределены цифры}
      m: integer;
  procedure BandauDetizenkla(skaitmuo, reiskinys : longint;
                              zenklas : char;
                              zenklo_vieta : integer);
  var naujas_reiskinys : longint;
      i: 2..9;
  begin
    if ... = '+'
      then naujas_reiskinys := ...
      else naujas_reiskinys := ...;
    if zenklo_vieta ...
      then
        begin
          t[zenklo_vieta] := ...; ...;
          t[zenklo_vieta] := ...; ...;
          t[zenklo_vieta] := ...; ...
        end

      else {проверка равности}
        if ... = m
          then
            begin
              for i := 2 to 9  do ...;
              writeln('9');
            end;
  end;
begin
 readln(m);
  fillchar(t, sizeof(t), '');
  BandauDetizenkla;(1, 0, '+', 2)
end.

можете обеснить что программа делает тут

fillchar(t, sizeof(t), '');

и как так считается числа все то я вот задал m=200 и никак несмог подсчитать
пожалста только в саму программу пока нечего невставляйте вместо точек хочется все самаму вставить подумать и вставить а сечас только понять мне надо

Сообщение отредактировано: maksimla - 27.02.2009 17:13