дорешать задачу по информатике
1.Натуральные числа a, b, c, называются числами Пифагора, если выполняется условие a^2+b^2=c^2. Напечатать все числа Пифагора меньшие N.
2.Найти наибольшую и наименьшую цифры в записи данного натурального числа ребзи жду код
bertashka
3
22.04.2020 11:55
13
Другие вопросы по теме Информатика
jinoguhaz
04.04.2019 22:16
dddashaaa1
04.04.2019 22:23
Alexxxxxxxxxxxxxxxey
09.02.2021 11:56
аноним1234567891011
16.03.2020 12:58
vasilarina06
16.03.2020 13:06
Natusik1616
16.03.2020 13:08
Лена2222
27.09.2019 03:32
savvakuratov2005
08.08.2019 07:20
egorbychkov83
08.08.2019 07:20
Популярные вопросы
- 1) Географическое положение, основные особенности Южной Америки. 2) Географическое...
2 - номер 3, 4,5 это физика сор за 4 четверть 8 класс, этот сор по дистанционке...
2 - Отличие междоусобных войн на Руси в XII-XIII веках от междоусобиц на Руси в...
1 - На сколько градусов нагреется вода, если через кипятильник пройдёт заряд 100...
1 - Выполнить практикум на стр.150, первое задание нарисовать плакат , присылаем...
1 - Утром 18 декабря из продуктового магазина на ул. Чайковского д.7 в г. Челябинске...
3 - Розв язування систем лінійних рівнянь додавання 19(х-3)=5(у-2)-3; 3(у+1)=7+19(х-3)...
1 - Здравствуйте по уравнение решить.(x+52345)÷201=345 кто помагите...
2 - Найдите решение систем уравнений или докажите что системы не имеют решений.{7х+9у+48=0}{6х+3у+27=0...
2 - 7-10 предложений об Астане на английском...
1
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.
Пример:
20
3 4 5
5 12 13
6 8 10
8 15 17
9 12 15