Даны два числа вывести большее, а затем меньшее. (Delphi)

[Stilet]

Одновременно?

var v:variant;

[nadyaH]

не знаю в чём ошибка.

var
N:100..999;
e,S,d:variant;
begiN
N:=STRTOint(EDIT1.Text);
S:=N DIV 100;
begin
CASE S OF
1:BEGIN S:='сто;'END;
2:BEGIN S:='двести'END;
3:BEGIN S:='триста'END;
4:BEGIN S:='четыреста;'END;
5:BEGIN S:='пятьсот'END;
6:BEGIN S:='шестьсот'END;
7:BEGIN S:='семьсот'END;
8:BEGIN S:='восемьсот'END;
9:BEGIN S:='девятьсот'END;
end;
BEGIN
 D:=N MOD 100;
 IF (D>=10)AND (D<=19)THEN
  CASE D OF
  10:BEGIN D:='десять;' END;
  11:BEGIN D:='ÎÄÈÍÀÄÖÀÒÜ' END;
  12:BEGIN D:='ÄÂÅÍÀÄÖÀÒÜ' END;
  13:BEGIN D:='ÒÐÈÍÀÄÖÀÒÜ' END;
  14:BEGIN D:='×ÅÒÛÐÍÀÄÖÀÒÜ' END;
  15:BEGIN D:='ÏßÒÍÀÄÖÀÒÜ' END;
  16:BEGIN D:='ØÅÑÒÍÀÄÖÀÒÜ' END;
  17:BEGIN D:='ÑÅÌÍÀÄÖÀÒÜ' END;
  18:BEGIN D:='ÂÎÑÅÌÍÀÄÖÀÒÜ' END;
  19:BEGIN D:='ÄÅÂßÒÍÀÄÖÀÒÜ' END;
  ELSE D:=D DIV 10;
      CASE D OF
      2:BEGIN D:='двадцать;' END;
      3:BEGIN D:='ÒÐÈÄÖÀÒÜ' END;
      4:BEGIN D:='ÑÎÐÎÊ' END;
      5:BEGIN D:='ÏßÒÜÄÅÑßÒ' END;
      6:BEGIN D:='ØÅÒÜÄÅÑßÒ' END;
      7:BEGIN D:='ÑÅÌÜÄÅÑßÒ' END;
      8:BEGIN D:='ÂÎÑÅÌÜÄÅÑßÒ' END;
      9:BEGIN D:='ÄÅÂßÍÎÑÒÎ' END;
END;END;
BEGIN
E:=N MOD 10;
CASE E OF
0:BEGIN E:='  ' END;
1:BEGIN E:='один' END;
2:BEGIN E:='ÄÂÀ' END;
3:BEGIN E:='ÒÐÈ' END;
4:BEGIN E:='×ÅÒÛÐÅ' END;
5:BEGIN E:='ÏßÒÜ' END;
6:BEGIN E:='ØÅÑÒÜ' END;
7:BEGIN E:='ÑÅÌÜ' END;
8:BEGIN E:='ÂÎÑÅÌÜ' END;
9:BEGIN E:='ÄÅÂßÒÜ' END;
END;END;
IF (D>=10)AND (D<=19) THEN
EDIT2.Text:=intTOSTR(S)+intTOSTR(D)
ELSE
EDIT2.Text:=FLOATTOSTR(S)+FLOATTOSTR(D)+FLOATTOSTR(E);
end;end;end;

end.

[Stilet]

Что это за задача?
Ты совершенно неверно поняла что такое variant. Или вопрос задала некорректно.

[Serge_Bliznykov]

обсуждение вышло за рамки заявленной темы
Даны два числа вывести большее, а затем меньшее. (Delphi)

поэтому тема закрыта!

Модератор