Question

Определить сумму цифр введенного числа a (a<1000)
в паскале, через for

Answer 1

//Инициализация a,i,sum//
//Ввод А//
if a>=1000 then readln <A>
   else for i:=1 to A do
   sum:=sum+1;
writeln <,sum>;
readln;
end;

Answer 2

var a, sum, i: integer;

begin
    writeln('Enter number: ');
    readln(a);
    sum := 0;
    for i:=1 to a do
        begin
            sum := sum + n mod 10;
            n := n div 10 end;
        end;
    writeln('Sum of digits = ', sum);
    readln;
end.