Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.