Ответы на вопрос:
// pascalabc.net 3.2, сборка 1344 от 22.11.2016 // внимание! в других версиях работа не гарантируется! begin for var a: =1 to 300 do for var b: =1 to 300 do for var c: =1 to 300 do if a*a+b*b=c*c then write(a,',',b,',',c,' '); end.
Популярно: Информатика
-
Ekaterina7394828.12.2021 09:17
-
kirillovmatvey21.12.2022 15:42
-
Dintyukld02.07.2021 14:11
-
lisniczova09.05.2023 04:58
-
Элечка555602.10.2022 13:45
-
lari09vasiljeva19.05.2023 12:27
-
papulova0327.12.2021 22:32
-
dashazoriksv19.05.2020 05:01
-
ilya7022801.10.2022 21:22
-
NadushaLove1215.10.2020 13:18