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.      

Answer 2

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

Answer 3

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