67= 1000011 95=10112 103=1213 246=366 421=1A5 305=131 525=1350 Правило: Для того, чтобы перевести число из десятичной системы счисления, в любую другую, нужно выполнять целочисленное деление исходного числа на основание той системы счисления, в которую нужно перевести число. При этом важен остаток от деления и частное. Частное нужно делить на основание до тех пор, пока не останется 0. После этого все остатки нужно выписать в обратном порядке - это и будет число в новой системе счисления.
если Остаток больше десяти то есть система счисления в которую переводим к примеру 16 то остатку 10=А; 11=B; 12=C; 13=D; 14=E; 15=F;
Для корректной работы программы диапазоны не должны пересекаться, то есть, должно быть так: X1 ≤ X2 < Y1 ≤ Y2 < Z1 ≤ Z2
Var X1,X2,Y1,Y2,Z1,Z2,G:byte; Begin Write('X1 = ');ReadLn(X1); Write('X2 = ');ReadLn(X2); Write('Y1 = ');ReadLn(Y1); Write('Y2 = ');ReadLn(Y2); Write('Z1 = ');ReadLn(Z1); Write('Z2 = ');ReadLn(Z2); Write('G = ');ReadLn(G); if (X1<=G)and(G<=X2) then WriteLn('Полутяжёлый вес') else if (Y1<=G)and(G<=Y2) then WriteLn('Тяжёлый вес') else if (Z1<=G)and(G<=Z2) then WriteLn('Супертяжёлый вес') else WriteLn('Не попадает в данные весовые категории') End.
95=10112
103=1213
246=366
421=1A5
305=131
525=1350
Правило:
Для того, чтобы перевести число из десятичной системы счисления, в любую другую, нужно выполнять целочисленное деление исходного числа на основание той системы счисления, в которую нужно перевести число. При этом важен остаток от деления и частное. Частное нужно делить на основание до тех пор, пока не останется 0. После этого все остатки нужно выписать в обратном порядке - это и будет число в новой системе счисления.
если Остаток больше десяти то есть система счисления в которую переводим к примеру 16 то остатку 10=А; 11=B; 12=C; 13=D; 14=E; 15=F;
Var
X1,X2,Y1,Y2,Z1,Z2,G:byte;
Begin
Write('X1 = ');ReadLn(X1);
Write('X2 = ');ReadLn(X2);
Write('Y1 = ');ReadLn(Y1);
Write('Y2 = ');ReadLn(Y2);
Write('Z1 = ');ReadLn(Z1);
Write('Z2 = ');ReadLn(Z2);
Write('G = ');ReadLn(G);
if (X1<=G)and(G<=X2) then WriteLn('Полутяжёлый вес')
else if (Y1<=G)and(G<=Y2) then WriteLn('Тяжёлый вес')
else if (Z1<=G)and(G<=Z2) then WriteLn('Супертяжёлый вес')
else WriteLn('Не попадает в данные весовые категории')
End.
Пример работы программы:
X1 = 85
X2 = 94
Y1 = 95
Y2 = 104
Z1 = 105
Z2 = 200
G = 115
Супертяжёлый вес