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

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

Напишите программу находящуюся сумму чисел натурального ряда до тех пор пока они не превысят значение 15 В программе КУМИР
Напишите программу находящуюся сумму чисел натурального ряда до тех пор пока они не превысят
Подготовьте доклад по теме "Системы компьютерного перевода"
Подготовьте доклад по теме Системы компьютерного
Закон исключения констант. Информатика
Закон исключения констант. Информатика
удалить из строки каждую пару символов "?!",подсчитать количество символов "Z" и отдельно количество символов "T" стоящих перед "."
удалить из строки каждую пару символов ?!,подсчитать количество символов Z и отдельно количество