Написать программу в паскаль ABC. Теорема Ферма утверждает, что не существует решения в целых числах уравнения x^n+y^n=z^n при n>2.
напишите программу, которая проверяла бы это утверждение при заданном n для всех x,y и z меньших 100.

1

Ответы и объяснения

2013-12-12T13:03:43+00:00
var
  n, x, y, z: integer;
begin
  write('n = ');
  read(n);
  for x := 1 to 10 do
    for y := 1 to 10 do
      for z := 1 to 10 do
        writeln(power(x, n) + power(y, n), ' = ', power(z, n));
end.