Информатика! Pascal!! Помогите пжл

Question

Информатика! Pascal!! Помогите пжл

---

Answer 1

Var a, b, n:integer;

begin
   writeln('Введи n');
   readln(n);
   a:=n mod 10;
   while n>0 do
      begin
            b:=n mod 10;
            n:=n div 10;
      end;
writeln('sum ', a+b);
end.      

Comments

поможешь еще с номером?)

---

попробую

---

есть вк?

---

проверьте почту на данном сайте