Question

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

Answer 1

Program n1;
Uses CRT;
Var x,a,b: integer;
begin
ClrScr;
writeln('Vvedite x');
readln(x);
a:=x div 10;
b:=x mod 10;
Writeln(x,'+',a,'+',b,'=',x+a+b);
readln
end.

Answer 2

var a: 10..99;

begin

  readln(a);

  writeln(a+(a mod 10)+(a div 10));

end.