2-3-4-digit, Pascal

2-3-4-digit

{ На входе 2-х или 3-х, или 4-х значное число.
Число разбивается на два числа следующим образом:
первое число = сумма цифр старшего и среднего разрядов,
второе число = сумма цифр среднего и младшего разрядов.
Распечатать все возможные варианты групп таких цифр.}
var 
    y, temp, i, j, k, zleft, zright : integer;
    x : array [1..4] of integer;

begin
    i := 0;
    readln (y);
    temp := y;
    while temp > 0 do begin // считаем сколько цифр у числа.
        i := i + 1;
        temp := temp div 10;
    end;
    while y > 0 do begin // заносим цифры в массив (учитываем, что x[1] — это цифра старшего разряда)
        x[i] := y mod 10;
        i := i - 1;
        y := y div 10;
    end;
    writeln ( x[1], ' ', x[2], ' ', x[3], ' ', x[4] ); // выводим цифры
    if (x[4] <> 0) and (x[3] <> 0) then begin          // если вводимое число 4-х значное, то
        zleft := 10 * x[1] + x[2];
        zright := 10 * x[3] + x[4];
        writeln ( zleft, ' ', zright);
    end
    else if ( x[4] = 0 ) and ( x[3] <> 0 ) then begin  // иначе, если 3-х значное, то
        zleft := 10 * x[1] + x[2];
        zright := x[3];
        writeln ( 'три цифры ', zleft, ' ', zright);
    end
    else if ( x[4] = 0 ) and ( x[3] = 0 ) then begin   // иначе, если 2-х значное, то
        zleft :=  x[1];
        zright := x[2];
        writeln ( zleft, ' ', zright);
    end;
    
    for i := 1 to 9 do                                // перебираем все варианты i,j,k
        for j := 1 to 9 do
            for k := 1 to 9 do
                if (( i + j ) = zleft) and (( j + k ) = zright) // если есть совпадения, то 
                then
                    writeln (i, ' ', j, ' ', k, ' ');           // выводим их на экран
    writeln ('end')
end.


run \| edit \| history \| help	0