Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

// 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