Информатика: (Pascal abc) Дано трехзначное число, определить сумму, произведение, средне...

Question

Информатика: (Pascal abc) Дано трехзначное число, определить сумму, произведение, средне арифметическое значение цифр этого числа.
Поменяйте местами первую и третью цифру этого числа.

Answer 1

Var sum,p,x,z:integer; 
begin 
writeln('Введите трёхзначное число'); 
read(x); 
sum:=x mod 10 + x div 100 + x div 10 mod 10; 
p:=(x mod 10) * (x div 100) * (x div 10 mod 10); 
z:=(x mod 10 *100) + (x div 10 mod 10 *10) + (x div 100); 
writeln('Сумма цифр =',sum); 
writeln('Среднее арифметическое цифр =',sum/3); 
writeln('Произведение цифр =',p); 
writeln('После перестановки 1 и 3 цифр =',z); 
end.