Паскаль. ввести x,y,k- нат. числа, которые =30. - вопрос №304966929 от MIshaFabretus 10.08.2022 01:05

Question

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

MIshaFabretus · Answer

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

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