Составить программу, которая запрашивает у пользователя целое двухзначное число и прибавляет к нему сумму его цифр.
Составить программу, которая запрашивает у пользователя целое двухзначное число и прибавляет к нему сумму его цифр.
Гость
Ответ(ы) на вопрос:
Гость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.
Гостьvar a: 10..99; begin readln(a); writeln(a+(a mod 10)+(a div 10)); end.
Не нашли ответ?
Похожие вопросы