Дано 4 х значное число найти сумму его чисел - программирование

Question

Информатика

Кава

28 апреля, 00:50

Дано 4 х значное число найти сумму его чисел - программирование

+1

Ответы (1)

Знаете ответ на вопрос?

Маддох · Answer 1

Var n, s:integer;

x1, x2, x3, x4:integer;

begin

write ('Vvedite N = ') ;

read (n) ;

x1:=n div 1000;

x2:=n mod 1000 div 100;

x3:=n mod 100 div 10;

x4:=n mod 10 div 1;

s:=x1+x2+x3+x4;

writeln (s) ;

end.