3)даны 4 числа записанные в двоичной системе : 10001011, 10111000, 10011011, 10110100. сколько среди них чисел больших чем a416+20 в8 сс 1)1 2)2 3)3 4)4

ответ:

maxn = индекс макс значения в массиве , minn - миним индекс массива

через if мы по этапно сравниваем значения , если условия верны то , значения min/max меняется на текущее значения массива

объяснение:

program d;

var min,max,i,minn,maxn : integer;

mas: array[0..4] of integer;

begin

for i: =0 to 4 do

begin

  readln(mas[i]);

end;

min: =mas[0];

minn: =1;

maxn: =1;

max: =mas[0];

for i: =1 to 4 do

begin

  if min

  if max> mas[i] then begin maxn: =i; max: =mas[i] end;

end;

mas[maxn]: =min;

mas[minn]: =max;

for i: =0 to 4 do

writeln(mas[i]);

end.

Dim msg as stringdim x as integer        for x = 100 to 999            if ((cint(mid(cstr(x), 1, 1)) + cint(mid(cstr(x), 2, 1)) + cint(mid(cstr(x), 3, * 3) mod 13 = 0 then                msg = msg & "утроенная сумма цифр равная " & ((cint(mid(cstr(x), 1, 1)) + cint(mid(cstr(x), 2, 1)) + cint(mid(cstr(x), 3, * 3) & ", числа " & x & ", кратна 13" & vbcrlf             end if        next  '   c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535   msgbox(msg)утроенная сумма цифр равная 39, числа 139, кратна 13утроенная сумма цифр равная 39, числа 148, кратна 13утроенная сумма цифр равная 39, числа 157, кратна 13утроенная сумма цифр равная 39, числа 166, кратна 13утроенная сумма цифр равная 39, числа 175, кратна 13утроенная сумма цифр равная 39, числа 184, кратна 13утроенная сумма цифр равная 39, числа 193, кратна 13утроенная сумма цифр равная 39, числа 229, кратна 13утроенная сумма цифр равная 39, числа 238, кратна 13утроенная сумма цифр равная 39, числа 247, кратна 13утроенная сумма цифр равная 39, числа 256, кратна 13утроенная сумма цифр равная 39, числа 265, кратна 13утроенная сумма цифр равная 39, числа 274, кратна 13утроенная сумма цифр равная 39, числа 283, кратна 13утроенная сумма цифр равная 39, числа 292, кратна 13утроенная сумма цифр равная 39, числа 319, кратна 13утроенная сумма цифр равная 39, числа 328, кратна 13утроенная сумма цифр равная 39, числа 337, кратна 13утроенная сумма цифр равная 39, числа 346, кратна 13утроенная сумма цифр равная 39, числа 355, кратна 13утроенная сумма цифр равная 39, числа 364, кратна 13утроенная сумма цифр равная 39, числа 373, кратна 13утроенная сумма цифр равная 39, числа 382, кратна 13утроенная сумма цифр равная 39, числа 391, кратна 13утроенная сумма цифр равная 39, числа 409, кратна 13утроенная сумма цифр равная 39, числа 418, кратна 13утроенная сумма цифр равная 39, числа 427, кратна 13утроенная сумма цифр равная 39, числа 436, кратна 13утроенная сумма цифр равная 39, числа 445, кратна 13утроенная сумма цифр равная 39, числа 454, кратна 13утроенная сумма цифр равная 39, числа 463, кратна 13утроенная сумма цифр равная 39, числа 472, кратна 13утроенная сумма цифр равная 39, числа 481, кратна 13утроенная сумма цифр равная 39, числа 490, кратна 13утроенная сумма цифр равная 39, числа 508, кратна 13утроенная сумма цифр равная 39, числа 517, кратна 13утроенная сумма цифр равная 39, числа 526, кратна 13утроенная сумма цифр равная 39, числа 535, кратна 13утроенная сумма цифр равная 39, числа 544, кратна 13утроенная сумма цифр равная 39, числа 553, кратна 13утроенная сумма цифр равная 39, числа 562, кратна 13утроенная сумма цифр равная 39, числа 571, кратна 13утроенная сумма цифр равная 39, числа 580, кратна 13утроенная сумма цифр равная 39, числа 607, кратна 13утроенная сумма цифр равная 39, числа 616, кратна 13утроенная сумма цифр равная 39, числа 625, кратна 13утроенная сумма цифр равная 39, числа 634, кратна 13утроенная сумма цифр равная 39, числа 643, кратна 13утроенная сумма цифр равная 39, числа 652, кратна 13утроенная сумма цифр равная 39, числа 661, кратна 13утроенная сумма цифр равная 39, числа 670, кратна 13утроенная сумма цифр равная 39, числа 706, кратна 13утроенная сумма цифр равная 39, числа 715, кратна 13утроенная сумма цифр равная 39, числа 724, кратна 13утроенная сумма цифр равная 39, числа 733, кратна 13утроенная сумма цифр равная 39, числа 742, кратна 13утроенная сумма цифр равная 39, числа 751, кратна 13утроенная сумма цифр равная 39, числа 760, кратна 13утроенная сумма цифр равная 39, числа 805, кратна 13утроенная сумма цифр равная 39, числа 814, кратна 13утроенная сумма цифр равная 39, числа 823, кратна 13утроенная сумма цифр равная 39, числа 832, кратна 13утроенная сумма цифр равная 39, числа 841, кратна 13утроенная сумма цифр равная 39, числа 850, кратна 13утроенная сумма цифр равная 78, числа 899, кратна 13утроенная сумма цифр равная 39, числа 904, кратна 13утроенная сумма цифр равная 39, числа 913, кратна 13утроенная сумма цифр равная 39, числа 922, кратна 13утроенная сумма цифр равная 39, числа 931, кратна 13утроенная сумма цифр равная 39, числа 940, кратна 13утроенная сумма цифр равная 78, числа 989, кратна 13утроенная сумма цифр равная 78, числа 998, кратна 13