uses crt;
var k: char;
begin
repeat
textcolor(0);
clrscr;
writeln('выберите цвет 1-красный, 2-жёлтый, 3-зеленый другое-выход');
readln(k);
clrscr;
case k of
'1': begin
textcolor(2);
write('красный');
readln
end;
'2': begin
textcolor(14);
write('желтый');
readln
end;
'3': begin
textcolor(12);
write('зеленый');
readln
end;
else exit;
end;
until not(k in ['1'..'3']);
end.
вроде так
объяснение:
2223₁₀ = 1000110₀₃
4999₁₀ = 35051₀₆
Объяснение:
Переводим целую часть 2223₁₀ в 3-ую систему последовательным делением на 3:
2223/3 = 741, остаток: 0
741/3 = 247, остаток: 0
247/3 = 82, остаток: 1
82/3 = 27, остаток: 1
27/3 = 9, остаток: 0
9/3 = 3, остаток: 0
3/3 = 1, остаток: 0
1/3 = 0, остаток: 1
2223₁₀ = 1000110₀₃
Переводим целую часть 4999₁₀ в 6-ую систему последовательным делением на 6:
4999/6 = 833, остаток: 1
833/6 = 138, остаток: 5
138/6 = 23, остаток: 0
23/6 = 3, остаток: 5
3/6 = 0, остаток: 3
4999₁₀ = 35051₀₆
