Переведите из шестнадцатеричной в десятичную систему счисления числа 25,4f,1а7,авс,d1ae, подробно надо

Question

Информатика: Переведите из шестнадцатеричной в десятичную систему счисления числа 25,4f,1а7,авс,d1ae, подробно надо

Dima141234 · Accepted Answer

var a,b,c,d:real;

c1, c2, z1, z2:real;

begin

write('Введи числитель первой дроби: '); read(a);

write('Введи знаменатель первой дроби: '); read(b);

write('Введи числитель второй дроби: '); read(c);

write('Введи знаменатель второй дроби: '); read(d);

write(a + ' / ' + b + ' + ' + c + ' / ' + d + ' = ');

if(b = d) then begin

c1 := a + c;

write(c1 + ' / ' + b);

End else Begin

z1 := b * d;

c1 := (z1 / b) * a;

c2 := (z1 / d) * c;

z2 := c1 + c2;

write(z2 + ' / ' + z1);

end;

end.