Делишь число на основание системы счисления в которую переводишь т.е. на 16, до тех пор,пока не получится частное меньше, чем делитель.
Остатки которые получились переводишь в соответствие с алфавитом новой системы счисления.Записывать с последнего остатка.
999 = 3е7
10985 = 2ае9
Var
a,b,c: integer;
x,y,z:string;
begin
x:='рубль';
y:='рубля';
z:='рублей';
writeln('Сколько стоит метр ткани?(в рублях)');
readln(a);
writeln('Сколько вы хотите купить ткани?(в метрах квадратных)');
readln(b);
c:=a*b;
if c=1 then
begin
writeln('Это будет стоить',' ',c,' ',x);
end;
if (2<=c) and (c<=4) then
begin
writeln('Это будет стоить',' ',c,' ',y);
end;
if (5 <= c) and(c <= 1000000) then
begin
writeln('Это будет стоить',' ',c,' ',z);
end;
end.
<span>В зависимости от результата программа будет выводить разное окончание.
1 рубль;
3 рубля;
100 рублей.
</span>
если по логике то должно получится 2064, а это 2 килобайта 16 байт = 2,16 килобайт.
Сначала нужно сложить числа в скобках, а потом умножить на 34
1) сани - США меняется на мо - мони
2) торт последняя убирается тор
Мони+тор=монитор
Ответ: монитор