Question

ЗАДАЧА В DELPHI вообще не понимаю как в нем работать после паскаля,помогите вывести на экран 0,если заданное число четное,или 1,если не четное

Answer 1

Ответ:

var

 i : Integer;

begin

 i := StrToInt( Edit1.Text );

 if i mod 2 = 0 then

   ShowMessage('0')

 else

   ShowMessage('1');

end;

Объяснение:

Делать на форме

Answer 2

Конечно, я могу помочь вам с этой задачей в Delphi. Ниже приведен пример кода, который выводит на экран 0, если заданное число является четным, и 1, если число нечетное:

delphiCopy code
program CheckEvenOdd;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  number: Integer;

begin
  Write('Введите число: ');
  Readln(number);

  if number mod 2 = 0 then
    Writeln('0')  // число четное
  else
    Writeln('1'); // число нечетное

  Readln;
end.

Когда вы запускаете программу, она будет запрашивать ввод числа с клавиатуры. Затем она проверит, является ли число четным с помощью оператора mod, который возвращает остаток от деления числа на 2. Если остаток равен 0, то число четное, и программа выведет 0 на экран. В противном случае будет выведено 1, что означает, что число нечетное.

Надеюсь, это поможет вам разобраться с работой в Delphi! Если у вас возникнут еще вопросы, пожалуйста, не стесняйтесь задавать.