שינויים
/* תרגול 2 שאלה 3 :) */
בתרגיל 2 מישהו יוכל להעתיק לי לכאן את הפתרון של תרגיל 3 במיופד ? זה לא מצליח להיפתח לי ..
:מצורף הפתרון שלי. [[משתמש:Gordo6|גל א.]]
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
