Какая из данных пар чисел является решением уравнения (x-1)^+y^=25, решить это надо с exsel.варианты ответов: (-3; , ; -; - .

Так понимаю, консольный delphi - это pascal? ) var x, y, a, k: real; begin       readln(a, y);       if (a > y) then       begin           x : = a / 100;           writeln(x);       end;       if (a < y) then       begin           k : = 100 * abs(a);           writeln(k);       end; end.

Яв диалектах не , но вот вспомнил vb.net : )   sub main()         dim a(10) as integer         dim b as integer = 1         dim c as integer         dim r as random = new random()         for i as integer = 0 to 10             a(i) = r.next(12)             console.writeline("[" + i.tostring() + "] => " + a(i).         next         for i as integer = 0 to 10              if ((a(i) mod 2 = 0) and (a(i) < 0)) then b = b * a(i)             if ((a(i) mod 3 = 0) or (a(i) mod 5 = 0)) then c = c + 1         next         console.writeline("произведение чётных отрицательных: " + b.         console.writeline("кол-во кратных 3 или 5:   " +  c.         console.read()     end sub