Найти все такие тройки натуральных чисел x, y и z из интервала от 1 до 20, для которых выполняется равенство

@JustUsuallyArty · Регистрация: 27.04.2016

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

2. Найти все такие тройки натуральных чисел x,y и z из интервала от 1 до 20, для которых выполняется равенство x²+y²=z² Тип к преобразованию чисел: Integer; а в программе нужно использовать только цикл FOR и IF)

@JuriiMW · 28.04.2016, 05:03

Pascal

begin
  for var x := 1 to 20 do
    for var y := 1 to 20 do
      for var z := 1 to 20 do
        if x*x+y*y=z*z then
          WriteLnFormat('{0}²+{1}²={2}²', x, y, z);
end.

На самом деле шестую строку я написал вот так:

WriteLnFormat('{0}²+{1}²={2}²', x, y, z);

@capricornus CF · 28.04.2016, 08:13

И если цикл по y начать с x, а по z начать с y, то выведет без повторений.

@JuriiMW · 28.04.2016, 08:17

Сообщение от capricornus CF

то выведет без повторений

Только не учтётся что x, y и z — это разные переменные!
Т.е. 5²+12²=13² это не то же самое, что 12²+5²=13².
Как-то так…

@JustUsuallyArty 0 / 0 / 0 Регистрация: 27.04.2016 Сообщений: 3
		1
	Найти все такие тройки натуральных чисел x, y и z из интервала от 1 до 20, для которых выполняется равенство 27.04.2016, 21:53. Показов 1867. Ответов 3 Метки нет (Все метки) 2. Найти все такие тройки натуральных чисел x,y и z из интервала от 1 до 20, для которых выполняется равенство x²+y²=z² Тип к преобразованию чисел: Integer; а в программе нужно использовать только цикл FOR и IF) 0

@capricornus CF 318 / 208 / 162 Регистрация: 08.12.2015 Сообщений: 863
	28.04.2016, 08:13	3
	И если цикл по y начать с x, а по z начать с y, то выведет без повторений. 0

@JuriiMW 5084 / 2655 / 2350 Регистрация: 10.12.2014 Сообщений: 10,043
	28.04.2016, 08:17	4
	Сообщение от capricornus CF то выведет без повторений Только не учтётся что x, y и z — это разные переменные! Т.е. 5²+12²=13² это не то же самое, что 12²+5²=13². Как-то так… 0

Опции темы

Найти все такие тройки натуральных чисел x, y и z из интервала от 1 до 20, для которых выполняется равенство

Решение