Войти Регистрация Спроси ai-bota

Только 5
надо десятичную систему счисления сложить с двоичной системой и чтобы получилась десятичная система

Показать ответ

Ответ:

Юльчик12134567890

12.08.2021 08:41

{ ответ дан на языке Pascal }
{ Вариант a }
PROGRAM Solution(INPUT, OUTPUT);

VAR
Str: STRING;
Str1: STRING;
Str2: STRING;
Str3: STRING;
TempStr: STRING;

BEGIN
WRITE('Введите строку: ');
READLN(Str);
Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

WRITELN(Str2 + Str3 + Str1);

END.

{ Вариант b }
PROGRAM Solution(INPUT, OUTPUT);

VAR
Str: STRING;
Str1: STRING;
Str2: STRING;
Str3: STRING;
TempStr: STRING;

BEGIN
WRITE('Введите строку: ');
READLN(Str);
Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

WRITELN(Str3 + Str1 + Str2);

END.

0,0(0 оценок)

Ответ:

egor22832

12.08.2021 08:41

{ ответ дан на языке Pascal }
{ Вариант a }
PROGRAM Solution(INPUT, OUTPUT);

VAR
Str: STRING;
Str1: STRING;
Str2: STRING;
Str3: STRING;
TempStr: STRING;

BEGIN
WRITE('Введите строку: ');
READLN(Str);
Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

WRITELN(Str2 + Str3 + Str1);

END.

{ Вариант b }
PROGRAM Solution(INPUT, OUTPUT);

VAR
Str: STRING;
Str1: STRING;
Str2: STRING;
Str3: STRING;
TempStr: STRING;

BEGIN
WRITE('Введите строку: ');
READLN(Str);
Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

WRITELN(Str3 + Str1 + Str2);

END.

0,0(0 оценок)

Популярные вопросы: Информатика

Lidiiiiiiiiiia

14.06.2021 10:44

1. Что такое кодирование информации? 2. Что вы знаете об Азбуке Морзе?3. Опишите методы шифрования (перестановки и шифр Цезаря)...

13081990

06.06.2021 16:24

Определить КОЛИЧЕСТВО СЕКУНД и МИНУТ в часах. Количество часов запросить у пользоватиля. Результат выдать форме: В часах содержаться сек. В ...часах содержаться...

Nasvay228

01.08.2021 01:03

Вычислить значение логического выражения: 1)(((1∨0)∨0)∨1); 2)(0&1)&1; 3)1&(0&1)&1; 4)((1∨0)&(1&0))&(0∨1) 5)((1&1)∨0)&(0∨1)...

Araikavipv

23.05.2020 03:20

1)по выражения построить схемы: ¬(А+В) & (А+¬В) А&¬ ( ¬А+¬В) 2)создайте таблицы истинности для каждого выражения. 3).при каких исходных выражениях имеют...

Sultanasem2007

27.02.2023 22:50

Каким образом надо находить первый и последний элементы одномерного массива, обладающие некоторым свойством (отрицательный, наибольший, входящий в интервал и пр.)?...

BitBul1

20.08.2020 08:13

Заверши работу с файлами каталога d: \документыфото 2017 природа, пользовател. поднялся на триуровня нерх, потом спустился в каталог информатикаи после этого спустился...

Kintavr12345

04.02.2021 05:30

Найти первое положительное число и его номер. программа должна выдавать одно из следующих сообщений...

Лллиззза

17.09.2021 04:28

в этой цепочке предыдущая буква перед каждой y – дой ү — буква r. в этой цепочке четвёртая буква после каждой w - буква yr wr n. os y a w p...

EminAkid

24.02.2021 12:28

Даны целочисленная матрица a[1: n, 1: m] и целочисленный массив b[1: k]. удалить путем сдвига все строки матрицы, содержащие хотя бы один элемент, равный максимальному...

yakinaanna

21.02.2022 22:14

Даны числа a b c составьте алгоритм. составьте алгоритм вычисления половины суммы чисел a и b модуль разности чисел a и c квадрат произведения чисел b и c...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку