Консультация № 189018
27.03.2016, 12:01
0.00 руб.
0 1 1
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:

не могу написать программу в FreePascal с помощью циклических алгоритмов
a,b,c, натуральны числа. Они называются пифагоровыми,если a^2+b^2=c^2. Напечатать все пифагоровы числа,меньшие данного числа n

Обсуждение

давно
Мастер-Эксперт
680
2811
27.03.2016, 20:09
общий
это ответ
Здравствуйте, natalya270996!
Код:
begin
var i,j,k,n:integer;
begin
writeln ('введите число');
readln (n);
n:=sqr(Trunc(sqrt(n)));
for i:=1 to n do
for j:=i to n do
for k:=j to n do if i*i+j*j=k*k then writeln(i,' ',j,' ',k);
end;
end.

Форма ответа