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

Question

Информатика

Петронилла

14 января, 19:00

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

+2

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