Паскаль. Ввести x,y,k- нат. Числа, которые <=30. Вывести все числа, удавлетворяющие этому...

Question

Паскаль. Ввести x,y,k- нат. Числа, которые <=30.<br> Вывести все числа, удавлетворяющие этому уравнению: x^2+y^2=k^2

Answer 1

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
  var x,y,k:integer;
  Write('x,y,k= '); Read(x,y,k);
  var kk:=sqr(k);
  for var i:=1 to x do
    for var j:=i to y do
      if i*i+j*j=kk then Writeln(i,', ',j)
end.

Тестовое решение:
x,y,k= 20 30 17
8, 15