Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.