Pascal

  • Автор темы Artem666
  • Дата начала
A

Artem666

Гость
#1
Помогите решить задачу....Найти все такие тройки натуральных чисел, x,y,z из интервала от 1 до 20, для которых выполняется равенство: x в кврдрате +y в квадрате=z в квадрате.
 
I

isqoff

Гость
#2
Код:
uses crt;
var x,y,z,i,j,k:integer;

BEGIN
i:=1;
while i<=20 do
begin
z:=sqr(i);
for j:=1 to 20 do
begin
x:=sqr(j);
for k:=1 to 20 do
begin
y:=sqr(k);
if z =(x+y)
then begin
z:=i;
x:=j;
y:=k;
writeln('x= ',x,'; y= ',y,'; z= ',z);
end;
end;
end;
inc(i);
end;
END.