Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
КИРИЛЛ9067
19.02.2021 07:58 •
Информатика
Дан одномерный массив a(2n).сформировать двумерный массив
👇
Увидеть ответ
Открыть все ответы
Ответ:
srochno6
19.02.2021
Var c,i:integer;
function IntToBin2(Value: integer): string;
var i: integer;
begin
Result:= '';
for i:= 0 to Trunc(Ln(Value)/Ln(2)) do
Result:= IntToStr((Value and (1 shl i) shr i))+Result;
end;
begin;
for c:=41 to 69 do
writeln(c,'=',IntToBin2(c));
end.
Вывод:
41=101001
42=101010
43=101011
44=101100
45=101101
46=101110
47=101111
48=110000
49=110001
50=110010
51=110011
52=110100
53=110101
54=110110
55=110111
56=111000
57=111001
58=111010
59=111011
60=111100
61=111101
62=111110
63=111111
64=1000000
65=1000001
66=1000010
67=1000011
68=1000100
69=1000101
4,5
(24 оценок)
Ответ:
igubaevak
19.02.2021
(начало)
|
/a,b,c/
| - +
< a>b and a>c > - /a/
| - + |
< b>c > /b/
| - |
/c/(konec)
(начало)
|
/a,b,c,d,e/
| - +
< a>b and a>c and a>d and a>e> - /a/
| - + |
< b>c and b>d and b>e > /b/
| - + |
< b>d and b>e > - /c/
| - + |
< d>e > /d/
| - |
/d/(konec)
(nachalo)
|
/a,b,c/
| +
< a=b and b=c >/'Wse starshe wseh'/
| - + + |
< a=b >< a > c >/'A u B starshe C'/
| | - |
| +/'C starshe wseh'/
| - + + |
< b=c >< b > a >/'B u C starshe A'/
| | - |
| +/'A starshe wseh'/
| - + + |
< a=c >< a > b >/'A u C starshe B'/
| | - |
| +/'B starshe wseh'/
| - + |
< a>b and a>c > /'A starshe wseh'/
| - + |
< b>c > /'B starshe wseh'/
| - |
/'C starshe wseh'/(konec)
4,8
(75 оценок)
Это интересно:
К
Компьютеры-и-электроника
12.03.2021
Как подготовить кабель Ethernet и объединить два ноутбука в сеть...
П
Путешествия
23.11.2022
Как безопасно путешествовать по Южной Африке...
К
Компьютеры-и-электроника
19.09.2020
Как распечатать Google Календарь...
К
Компьютеры-и-электроника
17.06.2022
Как установить TortoiseSVN и произвести свои первые изменения в репозитарии...
К
Компьютеры-и-электроника
11.11.2020
Легкий способ - как скопировать музыку с CD в формате MP3...
К
Компьютеры-и-электроника
01.09.2020
Как подключиться к прокси–серверу: шаг за шагом руководство?...
В
Взаимоотношения
13.03.2020
Избегайте обидных фраз во время ссор между супругами: советы психологов...
К
Компьютеры-и-электроника
04.10.2022
Как удалить старые сообщения в WhatsApp...
В
Взаимоотношения
29.10.2021
Как отказаться от мысли об измене партнеру...
15.01.2022
Как довольствоваться тем, что у вас есть...
Новые ответы от MOGZ: Информатика
osadtsamax
17.02.2021
Составить кроссворд на тему Трехмерные модели, из 8 слов. 7 класс ...
викся1231
09.04.2020
Единица товара стоит a рублей b копеек. было куплено n штук этого товара. сколько рублей и копеек пришлось заплатить за всю покупку? на вход программе три целых числа: 0 a 30 000,...
artem1514
09.04.2020
Определить требуемый объем видеопамяти для экрана монитора с разрешающей точек, если глубина цвета на одну точку составляет 16 бит. я решил и ответ вышел 600 кб а то не уверен что...
transformer56
01.07.2021
Составить алгоритм блок схема и письменно 7x-4 если x равен 9...
bosswww228
29.09.2021
Составить модель, блок-схему и написать программу на языке программирования паскаль. собственная скорость катера равна х км/ч, а его скорость против течения реки у км/ч. с какой...
dasha5282
18.11.2021
Чему будет равно значение переменной k после выполнения фрагмента программы m: =5; d: =1; for k: =2 to m do d: =d*1; write(d)...
mkagermazov
15.04.2021
Решите всенужно , кину денег на сбер , но желательно решить на листочке ❤️...
lavin997
15.04.2021
Найти: 2 предлодения, и 2 сложноподчинённых ! ...
YaShKa111111
27.05.2021
Номер 1-2 , можно пеже перевод тоже написать...
maxtigr24
22.03.2022
Легкая тележка скатывается без трения по наклонной плоскости с углом 30 гр. к горизонту. на тележке укреплен шарик на нити массой 100 г. найдите угол нити с вертикалью отклонения...
MOGZ ответил
Водной бочке было 5 ведер воды во второй 6 ведер.для поливки взяли 8 ведер воды.сколько...
Write what people can make of these materials stone wood metal paper скажите как...
Пульс 15 летнего мальчика 70ударов в минуту то сколько секунд будет отдыхать желудочек...
Допожіть рішити окисно відновне рівняння zn s+ hno3 + koh = k2zno2 + h2so4 + no...
По каким приметам узнаем,что случилась в надо...
Нельзя продавать алкоголь после 23.00 с какой целью был принят? 20...
20 выполните действие ((9825+243000: 648)*8070-9080*9006+1202730): 345...
Напишите сочинение-рассуждение ( не менее 50 ! ) как вы понимаете значение слова...
Сложите разность чисел 6 целых 1/15 и 7 целых 1/3 и число 8.3...
Сочинение на тему почему деревья сбрасывают листву зимой?...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
function IntToBin2(Value: integer): string;
var i: integer;
begin
Result:= '';
for i:= 0 to Trunc(Ln(Value)/Ln(2)) do
Result:= IntToStr((Value and (1 shl i) shr i))+Result;
end;
begin;
for c:=41 to 69 do
writeln(c,'=',IntToBin2(c));
end.
Вывод:
41=101001
42=101010
43=101011
44=101100
45=101101
46=101110
47=101111
48=110000
49=110001
50=110010
51=110011
52=110100
53=110101
54=110110
55=110111
56=111000
57=111001
58=111010
59=111011
60=111100
61=111101
62=111110
63=111111
64=1000000
65=1000001
66=1000010
67=1000011
68=1000100
69=1000101