Циклы

[Екатерина 167]

Мальчики Помогите решить задачку с циклами!!!!

Дано натуральное число n. Указать все тройки x, y, z таких натуральных чисел, что n= x в квадрате + y в квадрате + z в квадрате.

Заранее спасибо!!!!!!!!!!

[Девочка-Скандал]

с повторами или без?
[с повторами]

uses crt;
const n =99;
var i,j,k:integer;
begin
clrscr;
for i:=1 to n-2 do
for j:=1 to n-1-sqr(i) do
for k:=1 to n-sqr(i)-sqr(j) do
if sqr(i)+sqr(j)+sqr(k)=n then begin  writeln (i:3,j:3,k:3);end;
end.

[Grag]

Девочка-Скандал! Если x=9, y=9 и z=9 (натуральные числа), то при этих значениях N=243 (тоже натуральное число)... Т.е. N может меняться от 1 до 243, и по заданию это число ЗАДАНО (т.е. его нужно вводить в программе).... Не вижу ввода числа N, да и почему оно у тебя ограничено значением 99 ???
Или я совсем тупой и ничего не понимаю???

[Девочка-Скандал]

2Grag

Или я совсем тупой и ничего не понимаю???

код --- это просто пример, как его переделать --- личная проблема Екатерина 167

[Grag]

Ну, я примерно так и предположил... Значит еще не совсем тупой...