Проще всего перевести числа в 10-ную систему, умножить и перевести обратно в 16-ную.
4A,3 = 4*16 + 10 + 3/16 = 74,1875
F,6 = 15 + 6/16 = 15,375
74,1875 * 15,375 = 1140,6328125 = 256*4 + 16*7 + 4 + 0,6328125 =
= 4*256 + 7*16 + 4 + 10/16 + 2/256 = 474,A2
А если нужно обязательно в 16-ричной, то поищи "шестнадцитиричная таблица умножения". Именно так, словами, а не "16-ричная"!
Из нее можно узнать, что:
4*F = 3C; A*F = 96; 3*F = 2D; 4*6 = 18; A*6 = 3C; 3*6 = 12.
Умножаем в столбик:
4A,3
F,6
=====
1BD2
458D
=====
474,A2
Надеюсь, понятно, как я складывал числа?
Например, D + D(16) = 13 + 13(10) = 26(10) = 16 + 10(10) = 1A(16)
И остальные числа точно также, переводя в уме в 10-ную и складывая.
Var mes, sum: real;
begin
mes:=0;
sum:=1000;
while sum<1100 do<span> begin
</span>sum:=sum+(sum*0.05);
mes:=mes+1;
<span> end;
</span>writeln (mes:2:0);
readln;
end.
<span>Программа работает корректно. Выводит 2</span>
Без проверок и прочего, все как написано в задаче. Если нужно было с проверками - напишите, переделаю :)
program Project1;
var
TotalA, TotalB, SoldA, SoldB : integer;
priceA, priceB, sum: real;
begin
Write(' Введите цену товара "А":');
Readln(priceA);
Write(' Введите количество товара "А" в начале рабочего дня:');
Readln(TotalA);
Write(' Введите количество проданного товара "А":');
Readln(SoldA);
Write(' Введите цену товара "Б":');
Readln(priceB);
Write(' Введите количество товара "Б" в начале рабочего дня:');
Readln(TotalB);
Write(' Введите количество проданного товара "Б":');
Readln(SoldB);
sum:= ((priceA*SoldA)+(priceB*SoldB));
writeln('Выручка от продажи двух товаров за день:', sum:5:2);
readln;
end.