Напишите ! ввести три числа, найти их сумму, произведение и среднее арифметическое(т.е. деление)

read(a,b,c);

  s: =a+b+c;

p: =a*b*c;

sr: =(a+b+c)/3 ;

write(s,' ',p,' ',sr,' ')

end.

общая форма, для какого компилятора хоть?  

 

 

1. а) представим -17₁₀ в обратном коде на 8-битном регистре - запишем число 17₁₀ в двоичной системе: 10001₂ - дополним его слева нулями до 8 знаков: 00010001 - поскольку число отрицательное, инвертируем каждый разряд, т.е. заменяем 0 на 1, а 1 на 0: 11101110 б) представим 22 в обратном коде на 8-битном регистре - запишем число 22₁₀ в двоичной системе: 10110₂ - дополним его слева нулями до 8 знаков: 00010110 - поскольку число положительное, его не нужно менять. в) выполняем сложение возник перенос в девятый разряд, которого у нас нет (т.е. фактически произошло переполнение регистра). в этом случае перенос нужно осуществить в младший разряд, т.е. сложить результат с единицей и окончательно получим 00000101 2. а) представим -17₁₀ в дополнительном коде на 8-битном регистре - запишем число 17₁₀ в двоичной системе: 10001₂ - дополним его слева нулями до 8 знаков: 00010001 - поскольку число отрицательное, инвертируем каждый разряд, т.е. заменяем 0 на 1, а 1 на 0: 11101110 - прибавляем единицу в младший разряд: 11101111 б) представим 22 в дополнительном коде на 8-битном регистре - запишем число 22₁₀ в двоичной системе: 10110₂ - дополним его слева нулями до 8 знаков: 00010110 - поскольку число положительное, его не нужно менять. в) выполняем сложение возник перенос в девятый разряд, которого у нас нет (т.е. фактически произошло переполнение регистра). при суммировании в дополнительном коде переполнение игнорируется, поэтому результат не меняется.

// pascalabc.net 3.2, сборка 1482 от 12.06.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив ***');   var a: =matrrandom(3,4,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var s: =a.elementswithindexes.where(z-> z[0]< 0);   if s.count=0 then writeln('нет отрицательных элементов')   else begin       write('отрицательные элементы: ');       s.select(x-> format('a[{0},{1}]',x[1]+1,x[2]+       end end. пример *** исходный массив ***   -62  13 -44  78   -19  73  92 -61   47 -13    3  43 отрицательные элементы: a[1,1] a[1,3] a[2,1] a[2,4] a[3,2]