Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a,b,c,d,x,res: integer;
begin
readln(x);
a: =x div 1000;
b: =x mod 10;
c: =x div 100 mod 10;
d: =x mod 100 div 10;
res: =a+b+c+d;
writeln(res);
readln;
end.
3*2=6128*512*6=393216ъ128+512=640640: 10=6464*6=384кб
Популярные вопросы