даны два числа A и B.проверить являются ли числа A и B нечётными ( Делфи 7 нужна помощь в решении задач)

[nadyaH]

даны два числа.проверить являЮться ли чиСла а и в нечётными.

[nadyaH]

VAR
A,B:REAL;
O:boolean;
d,f:
begin
A:=STRTOFLOAT(EDIT1.Text);
B:=STRTOFLOAT(EDIT2.Text);
d:=a mod 2;
f:=B MOD 2;
IF d=1 AND b=1 THEN O:='A и B-нечётные числа'
else o:='одно или два из чисел А,В - ЧЁТНЫЕ'
EDIT3.Text.FLOATTOSTR(O);
end;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

для вещественных (дробных) чисел понятие чётности/нечётности НЕ ОПРЕДЕЛЕНО.
нельзя сказать, например, число 0.22 - чётное или нечётное (почему? почитайте определение чётных чисел - поймёте, почему!)


поэтому, ваш код может выглядеть так:

VAR
  A,B, d,f : integer;
  O : string;
begin
  A := StrToInt(Edit1.Text);
  B := StrToInt(Edit2.Text);
  d:=a mod 2;
  f:=B MOD 2;
  IF (d=1) AND (f=1) 
     THEN O := 'A и B-нечётные числа'
     else O := 'одно или два из чисел А,В - ЧЁТНЫЕ'
  Edit3.Text := O;
end;

а ещё лучше - так:

var
  A,B : integer;
  O : string;
begin
  A := StrToInt(Edit1.Text);
  B := StrToInt(Edit2.Text);
  IF odd(A) AND odd(B) 
     then O := 'A и B-нечётные числа'
     else begin
        if odd(A) then O := 'A нечётное ' else O := 'A чётное ';
        if odd(B) then O := O + ' и B нечётное ' else O := O + 'и B чётное ';
     end;
  Edit3.Text := O;
end;

[nadyaH]

Спасибо большое. а что значит
odd(B) ?

[Poma][a]

Есть справка.. Odd функция булевского типа, которая вернет истину, при нечетном аргументе и ложь при четном

[Serge_Bliznykov]

odd() это логическая (boolean) функция "встроенная" в Pascal/Delphi, возвращает "истину" (true) в том случае, когда переданный аргумент является НЕЧЁТНЫМ число и "ложь" (false) - когда аргумент имеет чётное значение.

например,
odd(201) - это TRUE
odd(2) - это FALSE

[nadyaH]

спАСИБО БОЛЬШОЕ. ОЧЕНЬ ПОМОГЛИ=)

[nadyaH]

ДАНЫ ДВЫ ЧИСЛА ВЫВЕСТИ БОЛЬШЕЕ А ЗАТЕМ МЕНЬШЕЕ.
ВОТ ПРОГРАММА. НЕ ЗНАЮ КАК ПРАВИЛЬНО ВЫВЕСТИ ОТВЕТ.
VAR
X,Y:INTEGER;
B,M:REAL;
begin
IF X>Y THEN
BEGIN
B:=X;
M:=Y;
END
ELSE
BEGIN
B:=Y;
M:=X;
END;
EDIT3.Text:=FLOATTOSTR(B)+ FLOATTOSTR(M);
end;

end.