3. перевести смешанные двоичные числа в восьмеричную и шестнадцатеричную систему счисления: 100000111, 001110., 4. перевести восьмеричное число в двоичную систему счисления: 76, 025., 5. перевести шестнадцатеричное число в двоичную систему счисления: 24а, f9.

3) 5) с дробями у меня проблема, а а с крышкой не пиши, это вылазит иногда, ошибки

1) var a,b,c: integer; begin readln(a,b,c); writeln(a,'+',b,'+',c,' = ',a+b+c); writeln(a,'*',b,'*',c,' = ',a*b*c); writeln('(',a,'+',b,'+',c,')/3 = ',(a+b+c)/3: 5: 3); end. пример: 4 5 7 4+5+7 = 16 4*5*7 = 140 (4+5+7)/3 = 5.333 2) var r: integer; begin readln(r); writeln('s = ',pi*r*r: 5: 3); writeln('c = ',2*pi*r: 5: 3); end. пример: 5 s = 78.540 c = 31.416 3) var a,b,i: integer; begin readln(a,b); for i: =1 to 5 do   write(random(b-a+1)+a,' '); end. пример: 0 100 8 1 86 54 60

Самое худшее, что можно придумать, это сделать именно процедуру. ниже вариант с процедурой, а потом другой, без процедур. можно // pascalabc.net 3.2, сборка 1509 от 27.07.2017 // внимание! если программа не работает, обновите версию! вариант с процедурой procedure massavg(var r: real); begin   r: =readseqinteger('вводите: ',readinteger('n=' end; begin   var avg: real;   for var i: =1 to 3 do begin       massavg(avg);       writeln('среднее значение: ',avg)       end end. вариант без процедур и функций begin   for var i: =1 to 3 do begin       writeln('среднее значение: ',               readseqinteger('вводите: ',readinteger('n=')       end end. результат n= 7 вводите: -5 4 11 8 0 5 4 среднее значение: 3.85714285714286 n= 5 вводите: 100 32 52 43 19 среднее значение: 49.2 n= 4 вводите: 6 6 8 7 среднее значение: 6.75