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.



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

МАССИВЫ И ВЛОЖЕННЫЕ ЦИКЛЫ НЕ ИСПОЛЬЗОВАТЬ В РЕШЕНИИ

[rUs_LAN]

Сообщение от Ия Ильина

ВЛОЖЕННЫЕ ЦИКЛЫ НЕ ИСПОЛЬЗОВАТЬ В РЕШЕНИИ

тогда хз как, скорее всего есть какой то хитрый алгоритм для поиска таких чисел

var
    m, n    : integer;
    a, b, c : integer;   // искомые числа
    k       : integer;     // место, на котором заканчиваем поиск a 
    b2      : integer;
    count   : integer;
begin
    writeln('Input lower border n');
    readln(n);
    writeln('Input higer border m');
    readln(m);
    
    c := integer( Trunc(n * sqrt(2)) ) + 1;
    count := 0;
    while (c <= m) do
    begin
        k := integer (Trunc(c / sqrt(2)) );
        for a := n to k do
        begin
            b2 := c * c - a * a;
            b := integer (Trunc(sqrt(b2)) );
            if (b * b = b2) then
            begin
                count := count + 1;
                writeln('"', count, '" ', a : 3, b : 3, c : 3);
            end;
        end;
        c := c + 1;
    end;
    if (count = 0) then
       writeln('Not found');
    readln;
End.

google

[Ия Ильина]

что такое m и n
и что такое Trunc
??

[viron]

for a:= 1 to 20 do
  for b:= 1 to 20 do
    for c:= 1 to 20 do
      if (a*a + b*b = c*c) then
        writeln ('a=',a,'','b=',b,'','c=',c,'-пифагоровы');

[Ия Ильина]

вложенные циклы использовать нельзя!

[rUs_LAN]

n -1 m - 20
насколько я понял, Паскаля или Дельфи нет так что я не имею возможности проверить.
trunc http://delphibasics.ru/Trunc.php

[Ия Ильина]

trunc
не проходили!

[rUs_LAN]

Тили-тили трали-вали
Это мы не проходили
Это нам не задавали

[viron]

Trunc(x) просто отбрасывает дробную часть у x и возвращает целое число

Trunc(5.3) = 5;
Trunc(5.8) = 5;

[Ия Ильина]

а чем его можно заменить?