Question

Найти сумму цифр четырехзначного числа
Program nfff;
var ab,S,a,b: integer;
Begin
WriteLn('найти сумму цифр четырехзначного числа');
Write('Введите ab= ');ReadLn(ab);
b:=ab mod 10;
a:=ab div 10;
S:=a+b;
writeln('S=',S);
End.

Answer 1

Program nfff;
 var abcd,S,a,b,c,d: integer;
Begin
WriteLn('найти сумму цифр четырехзначного числа');
Write('Введите abcd= ');ReadLn(abcd);
a:=abcd div 1000;
b:=abcd div 100;
b:=b mod 10;
c:=abcd mod 100;
c:=c div 10;
d:=abcd mod 10;
S:=a+b+c+d;
writeln('S=',S);
End.