Подпрограммы. Найти три тройки квадратов чисел, не имеющих общего делителя

@Алелуя · Регистрация: 07.05.2012

Author24 — интернет-сервис помощи студентам

Нетрудно указать тройку квадратов целых чисел, образующих арифметическую прогрессию: 1, 25, 49. Найдите еще три такие тройки (из квадратов чисел, не имеющих общего делителя, т. е. взаимно простых).

@Krot-buterbrod · 07.05.2012, 16:12

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
const max=100;
var n,i,i1,i2,i3,f: longint;
    b: boolean;
begin
     for i1:=1 to max-2 do begin
         for i2:=i1+1 to max-1 do begin
             for i3:=i2+1 to max do begin
                 if (sqr(i3)-sqr(i2)=sqr(i2)-sqr(i1)) then begin
                    b:=true;
                    for i:=2 to i1*i2 div 2 do
                        if i1*i2 mod sqr(i)=0 then b:=false;
                    for i:=2 to i2*i3 div 2 do
                        if i2*i3 mod sqr(i)=0 then b:=false;
                    for i:=2 to i1*i3 div 2 do
                        if i1*i3 mod sqr(i)=0 then b:=false;
                    if b=true then begin
                       writeln(i1*i1,' ',i2*i2,' ',i3*i3);
                       inc(f);
                    end;
                    if f=4 then begin
                       readln;
                       halt;
                    end;
                 end;
             end;
         end;
     end;
end.

Новые блоги и статьи Все статьи Все блоги /
Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .	SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .
Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .	Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .

@Алелуя 0 / 0 / 0 Регистрация: 07.05.2012 Сообщений: 4

	Подпрограммы. Найти три тройки квадратов чисел, не имеющих общего делителя 07.05.2012, 15:28. Показов 2506. Ответов 1 Метки нет (Все метки) Нетрудно указать тройку квадратов целых чисел, образующих арифметическую прогрессию: 1, 25, 49. Найдите еще три такие тройки (из квадратов чисел, не имеющих общего делителя, т. е. взаимно простых). 0

Опции темы

Подпрограммы. Найти три тройки квадратов чисел, не имеющих общего делителя

Решение