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

Question

Информатика: Написать программу, которая после ввода пользователем трёхзначного числа вычисляет сумму его цифр.

vasakaktakovlwla · Answer

var a,a1,a2,a3 : integer;

begin

readln(a);

a1:=a div 100;

a2:=(a mod 100) div 10;

a3:=(a mod 100) mod 10;

writeln(a1+a2+a3);

end.

а - само число, а1-число сотен, а2-число десятков, а3-число единиц