Если 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 уже придётся использовать длинную арифметику.
Электронные калькуляторы – обработка числовой информации- Текстовые редакторы – программы для создания текстовых документов - Word (Microsoft)- Электронные таблицы – программы для хранения данных в табличной форме и работы с этими данными – вычислений, создания диаграмм, красиво оформленных отчетов и тд. Самая известная электронная таблица – Excel (Microsoft)- Графические редакторы - для создания и обработки графических изображений (Paint)- Программы разработки презентаций – содержат текст, изображения, анимацию и звук. например- Power Point (Microsoft- Звуковые редакторы – обработка звука- Мультимедиа проигрыватели – звук, анимация, видео- Системы управления базами данных (СУБД) – для хранения очень больших объемов данных, имеющих сложную структуру связей и ссылок. Примером СУБД – является Access (Microsoft)- Интегрированные пользовательские системы – включают в себя несколько прикладных программ разного назначения. Пригодны для всех этапов серьезной деятельности. Наиболее распространенные в мире интегрированные системы – Office и Works (Microsoft)- Коммуникационные программы – обмен информации между компьютерами: для работы с электронной почтой, общения в Интернете.- Компьютерные игры – логические, стратегические или имитаторы-тренажеры- Обучающие программы – электронные учебники, репетиторы, тесты- Архиваторы - программы, которые используют для уменьшения объёма файла. Степень сжатия зависит от типа файла и программы-архиватора. Для обращения к сжатому файлу, его необходимо распаковать
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 уже придётся использовать длинную арифметику.