В прилагаемом файле 2 варианта программы. В одном используется массив, в другом - не используется.
Var sum,p,x,z:integer;
<span>begin </span>
<span>writeln('Введите трёхзначное число'); </span>
<span>read(x); </span>
<span>sum:=x mod 10 + x div 100 + x div 10 mod 10; </span>
<span>p:=(x mod 10) * (x div 100) * (x div 10 mod 10); </span>
<span>z:=(x mod 10 *100) + (x div 10 mod 10 *10) + (x div 100); </span>
<span>writeln('Сумма цифр =',sum); </span>
<span>writeln('Среднее арифметическое цифр =',sum/3); </span>
<span>writeln('Произведение цифр =',p); </span>
<span>writeln('После перестановки 1 и 3 цифр =',z); </span>
<span>end.</span>
35.
1)1700,5; 52,71; 43,7 (8сс)
2)2F,6; 107,38; 2A,2
38.
5105(8cc)
<span>PNG поддерживает три основных типа растровых изображений:</span>Полутоновое изображение (с глубиной цвета 16 бит)Цветное индексированное изображение (палитра 8 бит для цвета глубиной 24 бит)<span>Полноцветное изображение (с глубиной цвета 48 бит)</span>