Перевести в ДЕСЯТИЧНУЮ систему счисления а) 100110101 (2) б) 645 (8) в) 61Е (16)

254

454

Посмотреть ответы 1

Ответы на вопрос:

kornev183

Информатика

4,4(100 оценок)

// pascalabc.net 3.1, сборка 1179 от 29.02.2016 const n=15; var a: array[1..n] of integer; i,k,t: integer; begin randomize; k: =0; for i: =1 to n do begin a[i]: =random(90)+10; if k=0 then if a[i] mod 7 = 0 then k: =i; write(a[i],' ') end; writeln; if k> 0 then begin if odd(n) then i: =n div 2+1 else i: =n div 2; t: =a[k]; a[k]: =a[i]; a[i]: =t; for i: =1 to n do write(a[i],' '); writeln end else writeln('нет элементов, кратных 7') end. тестовое решение: 25 25 47 22 51 63 92 11 38 32 87 54 11 16 18 25 25 47 22 51 11 92 63 38 32 87 54 11 16 18