דף הבית
דף אקראי
רשימת מעקב
הגדרות
כניסה לחשבון
אודות Math-Wiki
הבהרה משפטית
שינויים
שיחה:שימושי מחשב תשע"א
נוספו 30 בתים
,
15:38, 11 באפריל 2011
/* תרגול 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
תודה!
Gordo6
622
עריכות