М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Heda0101
Heda0101
08.08.2020 12:24 •  Информатика

Расшируйте информации 234
1524 36 34 325 m (таблица
Кодировки учебник стр. 23


Расшируйте информации 2341524 36 34 325 m (таблицаКодировки учебник стр. 23​

👇
Ответ:
kaaanrakun
kaaanrakun
08.08.2020

Кодировка

100%правильно

Объяснение:

удачи

4,7(94 оценок)
Ответ:
arishkaz
arishkaz
08.08.2020

КОДИРОВКА

Объяснение:

В двузначном числе (26) первая цифра - номер строки (2), вторая - столбца (6). Букву смотрим на пересечении строки и столбца.

26 - К

34 - О

15 - Д

24 - И

36 - Р

34 - О

13 - В

26 - К

11 - А

4,7(85 оценок)
Открыть все ответы
Ответ:
skillet12oz
skillet12oz
08.08.2020
Type
    array100 = array[1..100]of integer;

var
    x: array100;
    i, n, j, t, min, max: integer;

procedure show(x: array100; n: integer);
var i:integer;
begin
    writeln();
    writeln('Вывод массива[',n,']:');
    for i := 1 to n do
        write(x[i], ' ');
    writeln();
end;

begin
    n := 20;
    max := -200;
    min := 200;
   
    for i := 1 to n do
    begin
        x[i] := random(2*n) - n;
    end;
    show(x, n);
   
    for i := 1 to n do
    begin
        if (x[i] > 0) and (x[i] mod 2 = 1) then begin
            if x[i] > max then max := x[i];
            if x[i] < min then min := x[i];
        end;
    end;
    writeln('Max = ', max, ' Min = ', min);
   
    i := 1;
    while i <= n do
    begin
        if x[i] = 0 then begin
            for j := i + 1 to n do
                x[j - 1] := x[j];
            n := n - 1;
        end
        else i := i + 1;
    end;
    show(x,n);
end.
4,8(93 оценок)
Ответ:
daryanesterchuk
daryanesterchuk
08.08.2020
Type
    array100 = array[1..100]of integer;

var
    x: array100;
    i, n, j, t, min, max: integer;

procedure show(x: array100; n: integer);
var i:integer;
begin
    writeln();
    writeln('Вывод массива[',n,']:');
    for i := 1 to n do
        write(x[i], ' ');
    writeln();
end;

begin
    n := 20;
    max := -200;
    min := 200;
   
    for i := 1 to n do
    begin
        x[i] := random(2*n) - n;
    end;
    show(x, n);
   
    for i := 1 to n do
    begin
        if (x[i] > 0) and (x[i] mod 2 = 1) then begin
            if x[i] > max then max := x[i];
            if x[i] < min then min := x[i];
        end;
    end;
    writeln('Max = ', max, ' Min = ', min);
   
    i := 1;
    while i <= n do
    begin
        if x[i] = 0 then begin
            for j := i + 1 to n do
                x[j - 1] := x[j];
            n := n - 1;
        end
        else i := i + 1;
    end;
    show(x,n);
end.
4,7(65 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ