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

Question

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

Comments

А чего то у Вас "паскали" во множественном числе? Вам надо решение в разных версиях?

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.