Вопрос, который вызвал трудности

Найти сумму цифр заданного трехзначного числа (программа Паскаль)

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

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.