// =================================== // 1 // =================================== var a: array [1..20] of integer; i: integer; begin for i : = 1 to 20 do begin if i mod 5 = 0 then a[i] : = 1 else a[i] : = 0; write(a[i]: 2); end; end. // =================================== // 2 // =================================== var a: array [1..5] of integer; i: integer; begin for i : = 1 to 5 do begin write('a[',i,'] = '); readln(a[i]); if a[i] < 0 then a[i] : = abs(a[i]); end; for i : = 1 to 5 do write(a[i]: 2); end.
не знаю что вы имели ввиду вот перевод чисел из двоичной системы, может он ва разобраться в этом вопросе.
а) 1001010 = 26*1 + 25*0 + 24*0 + 23*1 + 22*0 + 21*1 + 20*0 = 64 + 0 + 0 + 8 + 0 + 2 + 0 = 74
б) 10000000111 = 210*1 + 29*0 + 28*0 + 27*0 + 26*0 + 25*0 + 24*0 + 23*0 + 22*1 + 21*1 + 20*1 = 1024 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 4 + 2 + 1 = 1031