Найти все натуральные числа a, b, c из интервала от 1 до 20, для которых выполняется равенство a*a*b=c*c - Pascal ABC

Формулировка задачи:

Задачка на вложенные циклы:Найти все натуральные числа a, b, c из интервала от 1 до 20, для которых выполняется равенство a*a*b=c*c. с For я понял
Program lab4;
var a, b, c: integer;
begin
for a:=1 to 20 do
for b:=1 to 20 do
for c:=1 to 20 do
if a*a*b=c*c then writeln(a:4,b:4,c:4);
end.
с циклом while недопойму
Program lab41;
var a, b, c : integer;
begin
a:=1;
b:=1;
c:=1;
while a>20 do begin
a:=a+1;
while b>20 do begin
b:=b+1;
while c>20 do begin
c:=c+1;
end;
end;
end;
if a*a+b=c*c then writeln(a:5,b:5,c:5);
end.
как последнеее условие привязать чтоб он считал???

Код к задаче: «Найти все натуральные числа a, b, c из интервала от 1 до 20, для которых выполняется равенство a*a*b=c*c - Pascal ABC»

textual
Program lab41;
var a, b, c : integer;
begin
a:=1;
while a<=20 do begin
b:=1;
while b<=20 do begin
c:=1;
while c<=20 do begin
if a*a*b=c*c then writeln(a:5,b:5,c:5);
c:=c+1
end;
b:=b+1
end;
a:=a+1
end
end.

9   голосов, оценка 3.556 из 5


СОХРАНИТЬ ССЫЛКУ