uses Math;
var i,n:integer;
begin
write('Введите число N: ');
readln(n);
for i:=1 to n do
write(power(2,i):0:0,' ');
readln
end.
В текстовый редактор нельзя вставить аудиофайл.
109(10)= 11001(3)
109:3= 36, ост 1
36:3=12 ост 0
12:3=4 ост 0
4:3=1 ост 1
И потом надо записывать остатки в обратном порядке , то есть 1 1 0 0 1= 11001. И так из десятичной можно перевести троичную: 1) делить на 3 пока не останется число меньше 3, 2) записать остатки в обратном порядке
1 бит = 0.125 байтам
1 килобит = 125 байтам
1 мегабит = 125000 байтам
1 байт = 8 битам
1 килобайт = 8000 битам
1 мегабайт = 8000000 битам
program raf105;
var abc,a,b,c:integer;
begin
write('Введите трёхзначное число: ');
readln(abc);
a:= abc div 100;
c:= abc mod 10;
b:= (a+c) mod 10;
abc:= a*100 + b*10 + c;
writeln('Вывод: ',abc);
end.
<em><u>Язык PascalABC</u></em>