defined variable
I: integer;
begin
Results: = pos('5', inttostr (n)) > 0;
End;
Function myfunc (n: integer): integer;
defined variable
I: integer;
begin
Results: = 0;
For i := 1 to n do
begin
If (i mod 5 = 0) and isok(i), then
Inc (result);
End;
End;
Use a dial indicator to move the slider and the bottom of the task table vertically and horizontally, and calculate the area through the measured va