x:=1; p:=A[x]; for i:=1 to 7 do begin y:=x+i; if y>8 then y:=y-8; A[x]:=A[y]; x:=y end; A[x]:=p;
read(n); i:=n; j:=1; while i>9 do begin i:=i div 10; j:=j*10 end; i:=0; repeat if n mod 10<>0 then begin i:=i+j; n:=n-1 end else begin j:=j div 10; n:=n div 10 end until n=0; { cyklus skončí, keď n=0 }
Napíšte program (v ľubovoľnom programovacom jazyku, ktorý ste používali na strednej škole), ktorý najprv prečíta vstupnú hodnotu N a potom nakreslí pravidelný N-uholník so stranou 50. Nad každou stranou N-uholníka zostrojí rovnostranný trojuholník otočený smerom von z N-uholníka (s N-uholníkom majú spoločnú stranu). Napr. pre N=3 by sa mal nakresliť rovnostranný trojuholník so stranou 100, v strede strán ktorého sú vrcholy vpísaného trojuholníka so stranou 50.