Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
на египетскую - иероглифы.
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.
Популярные вопросы