составьте программу которая находит сумму цифр трех значного числа на 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.

Подобные ответы

сколько единиц в двоичной записи числа 4^2015 + 8^405 - 2^150- 122
сколько единиц в двоичной записи числа 42015 8405 - 2150- 122
Составить уравнение, плиз помогите
Составить уравнение, плиз помогите
Ввести два числа.Сохранить их в переменных.Поменять местами значения переменных.Вывести результат на экран.
Ввести два числа.Сохранить их в переменных.Поменять местами значения переменных.Вывести результат
для очистки графического экрана нужно выполнить команду
для очистки графического экрана нужно выполнить