3 значное число нужно сложить числа в этом числе паскаль

Question

Информатика

Галика

19 мая, 06:23

3 значное число нужно сложить числа в этом числе паскаль

+4

Ответы (1)

Знаете ответ?

Борюся · Answer 1

Program dig3;

var

n, a, b, c: integer;

begin

write ('Число: ') ;

readln (n) ;

a : = n div 100;

b : = n mod 100 div 10;

c : = n mod 10;

writeln (a + b + c) ;

end.