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

Дана программа: В строке, обозначенной буквой F, пропущен оператор, напишите оператор, который должен быть в этой строке. var x, y, z: real; begin writeln('Введите три положительных числа:'); F write('Треугольник со сторонами ', x, ', ', y, ' и ', z); if (x y\gt>z) and (z x\gt>y) and (y z\gt>x) then writeln(' существует') else writeln(' не существует');

Показать ответ
Ответ:
ялюблюкотиков
ялюблюкотиков
05.01.2021 18:51

var  

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

i,j,n,b:integer;  

begin  

randomize;  

write('vvedite razmernost'' massiva: '); readln(n);  

writeln(' Ishodnii massiv '); writeln;  

//Заполним массив случайными числами  

for i := 1 to n do  

begin  

v[ i]:=random(100)-50;  

write(v[ i]:4);  

end;  

writeln;  

 

// организуем сортироваку от минимального  

// к максимальному элементу массива  

for i:=1 to n-1 do  

for j:=i+1 to n do  

if v[ i]>v[ j] then  

begin  

b:=v[ i];  

v[ i]:=v[ j];  

v[ j]:=b;  

end;  

writeln;  

write(' Otsortirovannii massiv ');writeln;writeln;  

write('ot min k max: ');writeln;  

for i := 1 to n do  

write(v[ i]:4); writeln; writeln;  

write('ot max k min: '); writeln;  

for i := n downto 1 do  

write(v[ i]:4);  

readln;  

end.

0,0(0 оценок)
Ответ:
lailasarsenbaev
lailasarsenbaev
17.04.2020 19:08

1) 89₁₀ = 1011001₂

2) 600₁₀ = 100101100₂

3) 2010₁₀ = 11111011010₂

1) 513₁₀ = 1001₈

2) 600₁₀ = 1130₈

3) 2010₁₀ = 3732₈

Объяснение:

1)

89 / 2 = 44 + остаток 1

44 / 2 = 22 + остаток 0

22 / 2 = 11 + остаток 0

11 / 2 = 5 + остаток 1

5 / 2 = 2 + остаток 1

2 / 2 = 1 + остаток 0

1 / 2 = 0 + остаток 1

записываем остатки снизу вверх

89₁₀ = 1011001₂

2)

600 / 2 = 300 + остаток 0

300 / 2 = 150 + остаток 0

150 / 2 = 75 + остаток 0

75 / 2 = 37 + остаток 1

37 / 2 = 18 + остаток 1

18 / 2 = 9 + остаток 0

9 / 2 = 4 + остаток 1

4 / 2 = 2 + остаток 0

2 / 2 = 1 + остаток 0

1 / 2 = 0 + остаток 1

записываем остатки снизу вверх

600₁₀ = 100101100₂

3)

2010 / 2 = 1005 + остаток 0

1005 / 2 = 502 + остаток 1

502 / 2 = 251 + остаток 0

251 / 2 = 125 + остаток 1

125 / 2 = 62 + остаток 1

62 / 2 = 31 + остаток 0

31 / 2 = 15 + остаток 1

15 / 2 = 7 + остаток 1

7 / 2 = 3 + остаток 1

3 / 2 = 1 + остаток 1

1 / 2 = 0 + остаток 1

записываем остатки снизу вверх

2010₁₀ = 11111011010₂

1)

513 / 8 = 64 + остаток 1

64 / 8 = 8 + остаток 0

8 / 8 = 1 + остаток 0

1 / 8 = 0 + остаток 1

записываем остатки снизу вверх

513₁₀ = 1001₈

2)

600 / 8 = 75 + остаток 0

75 / 8 = 9 + остаток 3

9 / 8 = 1 + остаток 1

1 / 8 = 0 + остаток 1

записываем остатки снизу вверх

600₁₀ = 1130₈

3)

2010 / 8 = 251 + остаток 2

251 / 8 = 31 + остаток 3

31 / 8 = 3 + остаток 7

3 / 8 = 0 + остаток 3

записываем остатки снизу вверх

2010₁₀ = 3732₈

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