Чет или Нечет
Чет или Нечет
Чет или Нечет procedure TForm1.Button2Click(Sender: TObject); begin if not Odd(StrToInt(Edit1.Text)) then ShowMessage('Четное') else ShowMessage('Нечетное'); end;
Чет или Нечет
Чет или Нечет procedure TForm1.Button2Click(Sender: TObject); begin if not Odd(StrToInt(Edit1.Text)) then ShowMessage('Четное') else ShowMessage('Нечетное'); end;