program kvadrat;
var i, n: integer;
begin
writeln ('Таблица квадратов');
writeln ('-----------------');
writeln (' Число Квадрат');
writeln ('-----------------');
i:= 1;
n:= 10;
for i:=1 to n do
begin
writeln (' ',i,' ', sqr(i));
end;
writeln ('-----------------');
end.
Для начала определим что такое разряд числа. Разряд это порядковый номер цифры, и счет начинается с запятой, отделяющей дробь, счет начинается с 0 разряда до последней цифры. Например, число 1234,0: 0 разряд - 4, 1 разряд - 3, 2 разряд - 2 и 3 разряд единица.
Теперь определимся как переводить из 16й в 10ю. Для перевода шестнадцатеричного числа в десятичное необходимо это число представить в виде суммы произведений степеней основания шестнадцатеричной системы счисления на соответствующие цифры в разрядах шестнадцатеричного числа<span>.</span>
<span>Т.е.:</span>
<span>
</span>
<span>Чтобы перевести буквы в числа надо воспользоваться списком:</span>
<span>A=10; B=11; C=12; D=13; E=14; F=15</span>
<span>Теперь расмотрим данные нам числа:</span>
<span>
</span>
<span>
</span>
Будем считать, что это пятеричная система, где
<span>В=0
Е=1
К=2
Н=3
О=4
Первое слово, которое начнется с буквы О будет ОВВВВ, по-другому — 40000 в пятеричной системе. Чтобы узнать какое оно по счету, надо просто перевести его в десятичную сс.
40000</span>₅=0*5⁰+0*5¹+0*5²+0*5³+4*5⁴=4*625=2500
и, т.к. нумерация началась с 00000, то ответ будет 2501
Var
a, b: real;
begin
readln(a, b);
if a <> 5.5 then a := a * 2;
if b <> 5.5 then b := b * 2;
writeln(a, ' ', b );
end.