составьте программу которая находит сумму цифр трех значного числа на PascalABC

Вам нужно узнать решение и ответ на вопрос составьте программу которая находит сумму цифр трех значного числа на PascalABC и правильно выполнить домашнюю работу по предмету Информатика? Готовое решение смотрите далее.

Составьте программу которая находит сумму цифр трех значного числа на PascalABC

Var
i,n,s: Integer;
begin
write('Введите трехзначное число ');
read(n);
i:=0;
while (n<>0) Do
begin
s :=n Mod 10;
i:=i+s;
n:= n Div 10;
end;
writeLn('Сумма цифр : ',i)
end.

Program n1;
var a: integer;
begin
readln(a);
a:=abs(a);
write((a div 100)+ (a mod 10)+ (a mod 100 div 10));
end.