Решить задачу, Паскаль

[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 < 'A' THEN Int := Int * 16 + ORD(str) - 48
ELSE Int := Int * 16 + HEX[str];
WRITELN(Int);
READLN;
END.

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

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

 

[tana]

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

 

[Vladimir_S]

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

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

 

[tana]

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

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

 

[Vladimir_S]

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

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