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

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

Информатика 9 класс как написать программу что бы она считала ошибки?
Информатика 9 класс как написать программу что бы она считала
Проверьте пожалуйста решение. Найти все элементы массива вещественных чисел С(N),больших заданного числа.
Проверьте пожалуйста решение. Найти все элементы массива вещественных чисел СN,больших заданного
найдите произведение цифр заданного k-значного числа
найдите произведение цифр заданного k-значного числа
Помогите!!!Быстрее!!!!
Помогите!!!Быстрее!!!!
сколько единиц в двоичной записи числа 4^2015 + 8^405 - 2^150- 122
сколько единиц в двоичной записи числа 42015 8405 - 2150- 122