Найдите двузначное число, тем свойством, что куб суммы его цифр равен квадрату самого числа(turbo pascal)(через вложенные циклы)

vara, b: integer; beginfor a: =1 to 9 dofor b: =1 to 0 doif (a+b)*(a+b)*(a+b)=(a*10+b)*(a*10+b) then writeln(a,b); end.

Static void main(string[] args)        {            int[] a = new int[10];             int[] b = new int[10];             int oblpl = 0, oblu = 0;             for (int i = 1; i < 10; i++)            {                console.writeline("ukazhite ploshad' " + i);                 a[i] = int.parse(console.;                 console.writeline("ukazhite urozhai " + i);                 b[i] = int.parse(console.;                 oblu = oblu + a[i] * b[i];                 oblpl = oblpl + a[i];             }            console.writeline("oblastnaya ploshad' " + oblpl);             console.writeline("oblastnaya urozhainost' " + oblu/oblpl);             console.readline(); случайно не это?

Типовая задача на разбор случаев. Разбирать случаи будем не последовательным перечислением, а более сложной конструкцией из вложенных условных операторов.

Решение задачи.

Var a1, b1, c1, {коэффициенты уравнения первой прямой}

    a2,b2,c2, {коэффициенты уравнения второй прямой}

    x, y : Real; {координаты точки пересечения }

BEGIN

ReadLn( a1, b1, c1);

ReadLn( a2, b2, c2);

 If ( (a1=0) and (b1=0) ) or ( (a2=0) and (b2=0) )

 then WriteLn( 'это не прямая (прямые). ' )

 else

  if (a1*b2=a2*b1) and (a1*c2=a2*c1) {условие совпадения}

   then WriteLn( 'прямые совпадают.' )

   else

    if a1*b2 = a2*b1 {условие параллельности}

     then WriteLn('прямые параллельны.')

     else begin x:=(c1*b2-c2*b1)/(b1*a2-b2*a1);

         y:=(c2*a1-c1*a2)/(b1*a2-b2*a1);

         WriteLn('координаты точки пересечения :',

        ' x = ', x : 5 : 2 , ', y = ', y : 5 : 2);

          end;

END.