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

Определить объём и количество информации при передаче текста из 350 букв при пятизначного двоичного кода

Показать ответ
Ответ:
Svetafun46
Svetafun46
17.12.2020 07:27
Var
    s: string;
    a, b: integer;
begin
    readln(s);
    if s[1] = 'x' then begin
        a := StrToInt(s[3]);
        b := StrToInt(s[5]);
        if s[2] = '-' then a := -a;
        writeln(b - a);
    end
    else if s[3] = 'x' then begin
        a := StrToInt(s[1]);
        b := StrToInt(s[5]);
        if s[2] = '-' then begin
            a := -a;
            b := -b;
        end;
        writeln(b - a);
    end
    else if s[5] = 'x' then begin
        a := StrToInt(s[1]);
        b := StrToInt(s[3]);
        if s[2] = '-' then
            b := -b;
        writeln(a + b);
    end
end.

учтите что никакой защиты от дурака или неверного ввода
0,0(0 оценок)
Ответ:
kyzmina97
kyzmina97
28.10.2021 02:33
Надеюсь это то что надо

const
    N = 5;

var
    a: array[1..N] of integer;
    i, iMin: integer;

begin
    writeln('Исходный массив:');
    for i := 1 to N do
    begin
        a[i] := random(100) - 50;
        write(a[i]:4);
    end;
    iMin := 1;{инциируем первым элементом}
    for i := 2 to N do {проверяем все остальные}
        if a[i] < a[iMin] then {новый минимальный}
            iMin := i; {запомнить i}
    writeln; {перейти на новую строку}
    writeln('Минимальный элемент a[', iMin, ']=', a[iMin]);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота