masterstvo2012

Дано число в шестнадцатеричной системе счисления. Вывести строку изображающую десятичную запись того же числа.

Debianer

Хоспади, да вот первая же ссылка по запросу в гугле:

Hex -> Dec:
Решение 1
var
i : integer;
s : string;
begin
s := '$' + ThatHexString;
i := StrToInt(a);
end;

Решение 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.

Решение 3
Самое простое преобразование - через строку.

HexString := Format('%0x',DecValue);

tana

Помогите решить задачу:
Дана последовательность: 5 9 13 17 ...324. Найти кол-во в числовом ряд (Паскаль через FOR

Vladimir_S

Tana, Вас похитили и убили злодеи, не дав дописать сообщение? Сейчас это напоминает послание капитана Гранта, частично испорченное просочившейся в бутылку морской водой.

tana

Исправляю.
Дана последовательность: 5 9 13 17 ...324. Найти кол-во чисел в числовом ряду. (Паскаль через FOR)

Vladimir_S

Tana, проверьте последнее число - тут явная ошибка. Дело в том, что ряд - это арифметическая прогрессия вида
a[i] = 5 + 4*i, i = 1, 2, 3 ...
а 324 сюда ну никак не вписывается. Может быть, 325? Тогда ответ 81.