В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География

В полном двоичном дереве 64 листа. Сколько в нем всего узлов?

Показать ответ
Ответ:
D13na
D13na
22.10.2022 12:01

program rome_arabic;

Uses crt;

Const

{римские цифры}

RomeDigits:string='IVXLCDM';

{числа - соответствующие римским цифрам}

ArabicNumbers:array [1..7] of integer =

(1, 5, 10, 50, 100, 500, 1000);

(*

Функция определения правильности ввода арабского числа

*)

function IsArabic(s:string):boolean;

var i,t,c:integer;

begin

IsArabic:=true;

for i:=1 to length(s) do

if not(s[i] in ['0'..'9'])then

begin

IsArabic:=false;

exit;

end;

val(s,t,c);

if (c<>0)or(t<1) then

begin

IsArabic:=false;

exit;

end;

end;

(*

Функция перевода арабского числа в римское

*)

function ArabicToRome (s: string): string;

var

i,n,c: integer;

res: string;

begin

val(s,n,c);

res:='';

i:=7; {Проверяем от больших чисел к меньшим}

while n>0 do

begin

{находим следующее число - из которого будем формировать римскую цифру}

while ArabicNumbers[i]>n do i:=i-1;

res:=res+RomeDigits[i];

n:=n-ArabicNumbers[i];

end;

ArabicToRome := res;

end;

(*

Функция определения правильности ввода римского числа

*)

function IsRome(s:string):boolean;

var i:integer;

begin

IsRome:=true;

if s='' then

begin

IsRome:=false;

exit;

end;

for i:=1 to length(s) do

if not (s[i] in ['I', 'V', 'X', 'L', 'C', 'D', 'M']) then

begin

IsRome:=false;

break;

end;

end;

(*

Функция перевода римского числа в арабское

*)

function RomeToArabic (s: string): integer;

var

b:array[1..100] of integer;

i,j:integer;

res:integer;

begin

for i:=1 to length(s) do

begin

if s[i]='I' then b[i]:=1;

if s[i]='V' then b[i]:=5;

if s[i]='X' then b[i]:=10;

if s[i]='L' then b[i]:=50;

if s[i]='C' then b[i]:=100;

if s[i]='D' then b[i]:=500;

if s[i]='M' then b[i]:=1000;

end;

res:=b[1];{массив локальная переменная и

сравнение первого элемента с нулевым искажает число,

почему-то считает, что b[0]=1 и автоматом вычитает 2}

for i:=2 to length(s) do

begin

res:=res+b[i];

if b[i-1]<b[i] then res:=res-2*b[i-1]{вот здесь}

end;

RomeToArabic:=res;

end;

{Основная программа}

var

arabic: string; {арабское число}

rome: string; {римское число}

ask: char; {режим перевода чисел}

begin

clrscr;

writeln('Программа переводит римское число в арабское или арабское в римское');

repeat

clrscr;

writeln('Выберите режим перевода:');

writeln('1 - римское число в арабское');

writeln('2 - арабское число в римское');

writeln('другое - выход');

ask:=readkey;

case ask of

'1': begin {Римское в арабское}

write('Введите римское число: ');

readln(rome);

if IsRome(rome) then

writeln('Арабское число = ',RomeToArabic(rome))

else writeln('В римской записи числа допущены ошибки! Перевод не возможен!');

writeln('Press Enter...');

readln

end;

'2':begin {арабское в римское}

write('Введите арабское число: ');

readln(arabic);

if IsArabic(arabic) then

writeln('Римская запись = ',ArabicToRome(arabic))

else writeln('В арабской записи числа допущены ошибки! Перевод не возможен!');

writeln('Press Enter...');

readln

end;

else exit;

end;

until not(ask in ['1','2']);

end.

0,0(0 оценок)
Ответ:
KavaiiGot
KavaiiGot
10.09.2021 12:36

Солнечная система - это система планет, в центре которой находится яркая звезда, источник энергии, тепла и света - Солнце.  

По одной из теорий Солнце образовалось вместе с Солнечной системой около 4,5 миллиардов лет назад в результате взрыва одной или нескольких сверхновых звезд. Изначально Солнечная система представляла собой облако из газа и частиц пыли, которые в движении и под воздействием своей массы образовали диск, в котором возникла новая звезда Солнце и вся наша Солнечная система. В центре Солнечной системы находится Солнце, вокруг которого по орбитам вращаются девять крупных планет. Так как Солнце смещено от центра планетарных орбит, то за цикл оборота вокруг Солнца планеты то приближаются, то отдаляются по своим орбитам.

Различают две группы планет:  

1. планеты земной группы : Планеты земной группы: Меркурий, Венера, Земля и Марс. Эти планеты небольшого размера с каменистой поверхностью, они находятся ближе других к Солнцу.

2. планеты гиганты : Планеты гиганты: Юпитер, Сатурн, Уран и Нептун. Это крупные планеты, состоящие в основном из газа и им характерно наличие колец, состоящих из ледяной пыли и множества скалистых кусков. А вот

Плутон не попадает ни в одну группу, т.к., несмотря на свое нахождение в Солнечной системе, слишком далеко расположен от Солнца и имеет совсем небольшой диаметр, всего 2320 км, что в два раза меньше диаметра Меркурия. Солнце Солнце представляет собой гигантский огненный шар очень высокой температуры, состоящий из из плазмы (ионизированного газа) в составе с водородом и гелием. Диаметр солнца 1,4 млн км, температура на поверхности 5700° C, а в ядре 14 000 000° C. Солнце удалено от Земли на 149,6 млн км и имеет жизненно важное значение для всего растительного и животного мира на Земле.

Планеты Солнечной системы :  

 Меркурий Самая маленькая и самая близкая к Солнцу планета. Меркурий так медленно вращается, что проходя полный круг вокруг солнца, совершает оборот вокруг своей оси всего 1,5 раза, из-за чего солнечные сутки на планете длятся 58 земных суток. Поэтому на ночной половине Меркурия температура опускается до -180° C, а на дневной половине планеты раскаляется до +430° C.

  Венера Самая близкая к Земле планета. Венеру окружает слой очень плотных облаков, вследствии парникового эффекта. Температура поверхности планеты разогрета до +470° C, процент содержания в атмосфере углекислого газа гораздо больше, чем в горных породах, при этом планета расположена совсем недалеко от Солнца, что и приводит к такому эффекту повышения температуры. На Венере постоянно происходят вспышки молний, превышающие по интенсивности на Земле, что, возможно, также связывают с вулканической деятельностью

    Земля Планета Земля обладает атмосферой, которую удерживают силы гравитации, в состав атмосферы входят важные элементы водорода, углерода, которые делают возможным на Земле жизнь. Поверхность Земли состоит на 2/3 из воды, остальная часть это континенты, где и в воде и на суше развивается жизнь. Кислород на Земле, не критическая температура на поверхности планеты и другие свойства дали благоприятную возможность для существования растительного, животного мира и жизни человека на Земле. Спутник Земли: Луна  

   Марс Небольшая планета, которая представляется невооруженным глазом, как красная планета. Наличие на планете образований, напоминающих русла рек, а также следов каньонов и океанов, говорит в пользу теории, что Марс наиболее похож по структуре на планету Земля. До сих пор, ученые подразумевают наличие воды на планете. Также, как и на нашей планете, на Марсе присутствует атмосфера, только содержание в ней кислорода ничтожно мало, всего 0,13%, а давление на поверхности гораздо ниже земногоСпутники Марса: Фобос и Деймос

    Юпитер Самая крупная планета в Солнечной системе, состоящая из газа, слои которого находятся в постоянных вихреобразных движениях. Диаметр Юпитера огромный - 143 000 км (для сравнения: диаметр Земли 13 000км). Не смотря на свои крупные размеры, Юпитер очень быстро вращается вокруг своей оси (за 9ч 50 мин земных суток) из-за чего диаметры на полюсах планеты сжаты, а экватор растянут. Кольца и спутники Юпитера: Европа, Ио, Ганимед, Каллисто

 Сатурн Эта удивительная и красивая планета обладает ярко-выраженными кольцами, которые легко разглядеть в обычный телескоп, а уникальность Сатурна еще и в том, что его плотность ниже средней плотности воды и, если представить, что на поверхности мог бы быть океан, то можно было бы увидеть невероятное зрелище, как его воды легко плескались бы на поверхности планеты Кольца и спутники Сатурна: Титан, Энцелад.

Объяснение:

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота