Напечатать все пифагоровы числа не привышающие 30 (алгоритм)

127

320

Посмотреть ответы 2

Ответы на вопрос:

лиана247

Информатика

4,5(57 оценок)

Перебираешь все взаимно простые m > n разной четности, так чтобы m*m было меньше 30. и формируешь тройки по формуле: k*(m*m-n*n, 2*m*n, m*m + n*n) например так: function gcd(a,b: integer): integer; begin if b = 0 then gcd : = a else if (a > b) and (b > 0) then gcd : = gcd(b, a mod b) else gcd : = gcd(b, a); end; procedure print(m,n: integer); var i, a, b, c: integer; begin repeat i : = i + 1; a : = (m*m-n*n)*i; b : = 2*m*n*i; c : = (m*m+n*n)*i; if c < 30 then writeln(a, ' ', b, ' ', c) else break; until false; end; var m, n, s: integer; begin s : = trunc(sqrt(30)); for m : = 1 to s do for n : = m + 1 to s do if (gcd(n, m) = 1) and ((m mod 2)< > (n mod 2)) then print(n, m) end.

Сладкоезка

Информатика

4,7(39 оценок)

var

a, b: real; //два действительных числа

begin

writeln('введите два числа');

readln(a, b); //вводим 2 любых числа

if a < b then writeln('n = 1'); //если а < b, тогда печатаем 'n = 1'

if b < a then writeln('n = 2'); //если b < a, тогда печатаем 'n = 2'

if a = b then writeln('числа равны'); //если a = b, тогда печатаем 'числа равны'

end.

отметь решение как лучшее)

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.