Вопрос Написать программу по Паскалю которое будет считать Которое будет считать сумму цифры 4-х значного ч

[fa1d]

Написать программу по Паскалю которое будет считать Которое будет считать сумму цифры 4-х значного числа

 

[Valkaka]

var a:integer; begin readln(a); writeln(a div 1000+a div 100 mod 10+a div 10 mod 10+a mod 10) end.