Top.Mail.Ru
Ответы
Аватар пользователя
Аватар пользователя
Аватар пользователя
Программирование
+1

Переделать код на паскале на цикл While

Натуральные числа a, b, c называются числами Пифагора, если выполняется условие a2+b2=c2, вывести все числа Пифагора меньше N.

program qq;
var n,a,b,c,d:integer;
begin
readln(n);
for a:=1 to n-1 do
for b:=a to n-1 do
begin
d:=a*a+b*b;
c:=1;
while c*c<d do c:=c+1;
if (d=c*c)and(c<n) then writeln(a,' ',b,' ',c);
end;
end.

По дате
По рейтингу
Аватар пользователя
Новичок
1234567891011
 a := 1; 
while a < n do begin
  b := a + 1;
  while b < n do begin
    d := sqr(a) + sqr(b);
    c := round(sqrt(d));
    if (d = sqr(c)) and (c < n) then writeln(a, ' ', b, ' ', c);
    inc(b)
  end;
  inc(a)
end