Задать вопрос
27 декабря, 12:22

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

напишите программу, которая проверяла бы это утверждение при заданном n для всех x, y и z меньших 100.

+4
Ответы (1)
  1. 27 декабря, 15:00
    0
    Если 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 уже придётся использовать длинную арифметику.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Написать программу в паскаль ABC. Теорема Ферма утверждает, что не существует решения в целых числах уравнения x^n+y^n=z^n при n>2. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы