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

Kinder2571 Kinder2571    1   12.03.2019 04:10    5

Ответы
Мозговина12 Мозговина12  24.05.2020 23:24

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.

ПОКАЗАТЬ ОТВЕТЫ
dkurmanbek dkurmanbek  24.05.2020 23:24

var a: 10..99;

begin

  readln(a);

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

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика