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

в паскале, через for

Question

Информатика

Далила

22 ноября, 20:16

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

в паскале, через for

+2

Ответы (1)

Знаете ответ на вопрос?

Вира · Answer 1

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.

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

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

в паскале, через for