Яи мой компьютер-друзья. мы даже болеем вместе. и, когда я подхватил вирус гриппа, он тоже заболел. все признаки заражения на лицо.но болеем мы по-разному. какого симптома небыло у моего компьютера: а) слишком долго загружаемся (просыпаемся); в) произвольно выдаём звуковые сигналы; с) повышается температура; д) иногда можем уснуть на непродолжительное время.

С) повышается температура;

Произвольно выдоем разные звуки

Самое худшее, что можно придумать, это сделать именно процедуру. ниже вариант с процедурой, а потом другой, без процедур. можно // 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

// pascalabc.net 3.2, сборка 1509 от 27.07.2017 // внимание! если программа не работает, обновите версию! function sumdig(n: integer): integer; begin   result: =0;   while n> 0 do begin       result+=n mod 10;       n: =n div 10       end end; begin   var a: =readseqinteger('вводите числа: ',readinteger('n=';   write('палинодромы: ');   a.select(x-> x.tostring).where(x-> x=x.inverse).println;   var k: =readinteger('введите простое число');   write('числа, сумма цифр которых больше введенного: ');   a.where(x-> sumdig(x)> k).println end. пример n= 12 вводите числа: 9437 2522 3534 1532 4664 6882 7629 5820 2530 9889 6526 6573 палинодромы: 4664 9889 введите простое число 19 числа, сумма цифр которых больше введенного: 9437 4664 6882 7629 9889 6573