При условии, что х,у в 16-ой системе счисления
Алг массив
нач
цел N = 15
целтаб a[1:N]
цел i
нц для i от 1 до N
a[i] := irnd(0,100)
вывод a[i], " "
кц
вывод нс
a[2] := 0
a[14] := 0
нц для i от 1 до N
вывод a[i], " "
кц
кон
<span>moveForward();
turnLeft();
moveForward();
turnRight();
moveForward<span>(); 2-й уровень
</span></span>
Program pifThi;
var
a,b,c:integer;
begin
readln(a,b,c);
if (sqr(a)=sqr(c)+sqr(b)) or
(sqr(b)=sqr(a)+sqr(c)) or
(sqr(c)=sqr(a)+sqr(b)) then write('Yes!')
else write('No!'); readln;
<span>end.</span>