Pascal

Тема в разделе "Pascal and Delphi", создана пользователем Artem666, 27 сен 2009.

  1. Artem666

    Artem666 Гость

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

    isqoff Гость

    Код (Text):
    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.
     
Загрузка...

Поделиться этой страницей