a^2+b^2=c^2

[Ия Ильина]

здравствуйте
помогите решать задачу на паскале
для 9 класса

найти все натуральные числа a,b,c из интервала от 1 до 20, для которых выполняется равенство a^2+b^2=c^2

я пробовала решить, вот что получилось: program zadacha_16;
var
a:integer;
b:integer;
c:integer;
a1:integer;
b1:integer;
c1:integer;
i:integer;
cx:integer;
begin
for a:=1 to 20 do
a1:=a*a;
for b:=1 to 20 do
b1:=b*b;
cx:=a1+b1;
for c:=1 to 20 do
c1:=c*c;
end;
if c1=cx then
writeln ('a=',a,'','b=',b,'','c=',c,'-пифагоровы');
end.



заранее спасибо!

ВЛОЖЕННЫЕ ЦИКЛЫ И МАССИВЫ ЕЩЕ НЕ ПРОХОДИЛИ

[Maksimall89]

Надо идти в этом направление. Тут реализована проверка лишь последовательного ряда числе, без вложенных циклов остальное будет сложно реализовать, очень!

uses crt;
var
a,b,c,a1,b1,c1,left,right : integer;
begin
clrscr;
     for a:=1 to 18 do
         begin
              b := a + 1;
              c := a + 2;
              a1 := a * a;
              b1 := b * b;
              c1 := c * c;
              left := a1+b1;
              right := c1;
              if (left = right) then  writeln ('a=',a,' b=',b,' c=',c,'-ïèôàãîðîâû');
         end;
readkey;
end.

[Serge_Bliznykov]

ЗАКРЫТО ЗА КРОССПОСТИНГ