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

Question

Информатика

Дениска

25 ноября, 05:30

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

+4

Ответы (1)

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

Алексюха · Answer 1

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-число единиц