Найти сумму цифр заданного трехзначного числа (программа Паскаль)
Вопрос посетителя
Найти сумму цифр заданного трехзначного числа
Ответ эксперта
Program z6;
Var n, a1, a2, a3, s: Integer;
Begin
Writeln (‘Введи число’);
Readln (n);
a1:= n div 100 ;
a2:= n div 10 mod 10;
a3:= n mod 10;
s:= a1+a2+a3;
Writeln (‘сумма’, s);
Readln;
End.