Найти пары чисел Х и У, удовлетворяющие уравнению x^2=y^2+77.

@Xak · Регистрация: 16.03.2011

Author24 — интернет-сервис помощи студентам

собственно в названии темы все дано.
я подумывал сделать чтобы числа Х и У рандомно вылетали но вот не получается сделать.
вот что я сделал, но не работает(

Pascal

program ex;
uses crt;
var x,y,AA,BB,a,b,i:integer;
begin
clrscr;
readln (a,b);
randomize;
for i:=1 to 2000 do
begin
x:=random (-b+a+1) +a;
y:=random (-b+a+1) +a;
if (x*x)=(y*y+77) then
begin
AA:=x;
BB:=y;
end;
writeln ('x=',AA,' y=',BB);
end;
end.

@КонецСвета · 27.11.2011, 18:15

Или я недопонимаю условие, или вот так...

Pascal

uses crt;
var x,y: integer;
begin
for x:=1 to 100 do
    for y:=1 to 100 do
        if x*x=y*y+77 then
           writeln(x:5,y:5,'  ',x*x,'=',y*y+77);
end.

@Dtsnoob · 27.11.2011, 19:32

Pascal

uses crt;
var x,y:real;
begin
  ClrScr;
  randomize;
  y:=random(100);
  x:=sqrt(sqr(y)+77);
  writeln ('x= ',x:5:4);
  writeln ('y= ',y:5:4);
readln
end.

	27.11.2011, 19:32