Question

Помогите написать программу в Паскале ..... Дано трехзначное число х найти сумму его цифр, среднее арифметическое и записать число в обратном порядке.

Answer 1

Var
  m,n,n1,n2,n3,n4:integer;
begin
  Write('Введите трехзначное натуральное число: ');
  Readln(n);
  n1:= n mod 10;
  n2:= (n mod 100) div 10;
  n3:= n div 100;
  m:=n1+n2+n3;
  Write('сумма цифр: ',m);
  Write('среднее арифметическое: ',m/3);
  m = 100*n1 + 10*n2 + n3;
  Writeln(' в обратном порядке: ',m)
end.