שינויים
/* תרגול 2 שאלה 3 :) */
DIGITS:=10000: p:=PI: c:=0: for i from 1 to 9998 do
d:=floor(100*p):
if d=0 or d=111 or d=222 or d=333 or d=444 or d=555 or d=666 or d=777 or d=888 or d=999 then c:=c+1: end_if:
p:=10*p-floor(10*p);
end_for: c
תודה!
