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

Question

Информатика

Джарбет

27 апреля, 08:49

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

+4

Ответы (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.