Паскаль. Ввести x,y,k- нат. Числа, которые меньше =30. Вывести все числа, удавлетворяющие этому уравнению: x^2+y^2=k^2
Паскаль. Ввести 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
Не нашли ответ?
Похожие вопросы