[daMn]

שים לב שbegin של הלולאה שלך נמצא אחרי הreadln, שים את הreadln אחריו, בכ"מ אתה צריך משתנה ספירה, אז תאפס משתנה ספירה ותוסיף כל פעם אחד אם num שווה לnum1.

[Gil-S]

אני לא מצליח לעשות משתנה ספירה (צובר\מונה). יש מצב לדוגמא?

[daMn]

נכתב במקור על ידי Gil-S

אני לא מצליח לעשות משתנה ספירה (צובר\מונה). יש מצב לדוגמא?

בכיף

program example(input, output);
var
	count:integer;
begin
	count:=0;
	for (i:=1 to 100 do)
	begin
		count:=count+1;
	end;
	writeln('the counter count: ',count);
end.

סלח לי אם יש שגיאות סיטנקס בפסקל, מלא זמן לא נגעתי בזה.