var
i : Integer;
begin
i := StrToInt( Edit1.Text );
if i mod 2 = 0 then
ShowMessage('0')
else
ShowMessage('1');
end;
Объяснение:
Делать на форме
var
i : Integer;
begin
i := StrToInt( Edit1.Text );
if i mod 2 = 0 then
ShowMessage('0')
else
ShowMessage('1');
end;
Объяснение:
Делать на форме