Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   

Из HEX и Integer 2


CONST HEX : ARRAY['A'..'F'] OF INTEGER = (10,11,12,13,14,15);
VAR
  str : String;
  Int,
  i   : integer;
BEGIN
  READLN(str);
  Int := 0;
  FOR i := 1 TO Length(str) DO
    IF str[i] < 'A' THEN
      Int := Int * 16 + ORD(str[i]) - 48
    ELSE
      Int := Int * 16 + HEX[str[i]];
  WRITELN(Int);
  READLN;
END.

           


Бескамерная шина: шиномонтаж резины. . Грунтовка цены минимальны. Шпаклевки штукатурки грунтовки и шпаклевка лучшие цены. . Продам здание холодильного комплекса. Продать промышленные здания. . Где заказать сайт: заказ сайта в Йога-Дизайн .


Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011