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

Ответы 1

  • Если n небольшие, то можно написать так:var  x, y, z, n: integer;  disproved: boolean;begin  write('Введите n: ');  readln(n);  disproved := false;  for x := 1 to 100 do    for y := 1 to 100 do      for z := 1 to 100 do        if power(x, n) + power(y, n) = power(z, n) then        begin          writeln('Ферма ошибся! ', x, ' ^ ', n, ' + ', y, ' ^ ', n, ' = ', z, ' ^ ', n);          disproved := true;        end;  if not disproved then    writeln('Теорема не опровергнута');end.При больших n уже придётся использовать длинную арифметику.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years