Ответы на вопрос:
Var x,y,z,n: integer; begin writeln('введите n'); readln(n) ; for x: =1 to n do begin for y: =1 to n do begin for z: =1 to n do begin if (sqr(x)+sqr(y)+sqr(z)=n)then writeln('x=',x,' y=',y,' z=',z); end; end; end; end.
Популярно: Информатика
-
gtagiev11.01.2023 01:39
-
dashkastroga15.08.2021 14:11
-
AsdZaKAsd25.09.2021 00:24
-
Вика747325.06.2023 07:45
-
palechov0104.02.2022 13:57
-
zahar6424.10.2022 03:38
-
lolisgd21.12.2021 13:09
-
ЭвелинаРожкова21.04.2023 10:38
-
andrejisaev20Andrey05.05.2020 15:01
-
лоло9702.05.2020 02:10