Найти сумму цифр четырехзначного числа в паскалях

Question

Информатика

Рустя

6 декабря, 05:12

Найти сумму цифр четырехзначного числа в паскалях

+1

Ответы (1)

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

Ипатий · Answer 1

Program al;

var a, b, c, d, n, s:integer;

begin

writeln ('n=') ;

readln (n) ;

s:=0;

a:=n mod 10;

b:=n mod 100 div 10;

c: = n div 100 mod 10;

d:=n div 1000;

s:=a+b+c+d;

writeln ('s=', s) ;

readln;

end.