Question

Дано трёхзначное число А. Составить программу, которая находила бы сумму цифр веденного числа

Answer 1

Ответ:

var

a,i,sum:integer;

begin  

Readln(a);

for  i:= 1 to 3 do

begin

 sum += a mod 10;

 a := a div 10;

end;

print(sum)

end.

Объяснение:

Answer 2

Ответ:Программа на Паскале

var

a,s:integer;

begin

readln(a);

s:=a mod 10+(a div 10) mod 10 + a div 100 ;

writeln(s)

end.

Объяснение:

Программа написана на языке Паскаль. А - исходное число, S - сумма цифр введенного числа.