Если 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 уже придётся использовать длинную арифметику.
1)Составить алгоритм «Вскипятить чайник» Начало 2. Открыть кран с водой. 3. Налить воду в чайник. 4. Закрыть кран. 5. Включить плиту. 6. Поставить чайник на огонь. 7. Ждать, пока вода закипит. 8. Выключить плиту. 9. Сказать «Чайник вскипел». 10. Конец В этом примере каждая команда имеет свой порядковый номер и записывается на отдельной строке. Этот алгоритм мы используем в нашей жизни или в быту. Такой алгоритм называют бытовым. 2)1. Начало 2. Выполнить первое действие: 81 : 9. 3. Запомнить результат первого действия. 4. Выполнить второе действие: 6 ∙ 4. 5.Сложить результаты первого и второго действий. 6. Записать ответ. 7. Конец
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 уже придётся использовать длинную арифметику.
2)1. Начало 2. Выполнить первое действие: 81 : 9. 3. Запомнить результат первого действия. 4. Выполнить второе действие: 6 ∙ 4. 5.Сложить результаты первого и второго действий. 6. Записать ответ. 7. Конец