procedure TForm1.Button1Click(Sender: TObject);
var i,n:integer;
begin
n:=StrToInt(Edit1.Text);
for i:=1 to n do if i mod 2=0
then memo1.lines.add(IntToStr(i));
end;
end.
So Good Evening to everyone who is reading this I wanna ask a simple question how does this line work somehow I dont understant it.
for i:=1 to n do if i mod 2=0