Question

Запишите на языке Паскаль программу решения задачи условие дано целое трехзначное число Составьте программу которая вычисляет сумму цифр этого числа​

Answer 1

Ответ:

Var sum, a, a1, a2, a3:integer;

Begin

Writeln('Введите трехзначное число');

Readln(a);

a1:=a div 100 ;

a2:=(a div 10) mod 10 ;

a3:=a mod 10;

sum:=a1+a2+a3;

Writeln(sum);

End.