Программирование
+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