Фрагмент программы (переменные a и n целые) паскаль си a : = 0; a : = a + n div 1000; a : = a + (n div 100) mod 10; a : = a + (n div 10) mod 10; a : = a + n mod 10; a = 0; a = a + n / 1000; a = a + (n / 100) % 10; a = a + (n / 10) % 10; a = a + n % 10;