Составить программу, которая запрашивает у пользователя целое двухзначное число и прибавляет к нему сумму его цифр.
More Questions From This User See All
Составить программу, которая запрашивает у пользователя целое двухзначное число и прибавляет к нему сумму его цифр.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.