p:=0; for i:=1 to n do if i<>a[i] then if i=a[a[a[i]]] then p:=p+1; write(p);
read(n); i:=0; k:=-1; while n>=0 do begin inc(i); inc(k); inc(k); j:=k; while j>0 do begin dec(n); dec(j) end end; dec(i);
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í N postupne sa zväčšujúcich rovnostranných trojuholníkov so stranami 30, 40, 50, ... Tieto trojuholníky sú nakreslené pod sebou, pričom vrchol nižšieho sa dotýka stredu strany vyššieho trojuholníka – najmenší trojuholník je navrchu. Obrázok nakreslite jedným ťahom tak, aby pero neprešlo viackrát po tej istej čiare.