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

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

найдите значение перемменых a,b и c после выполнения алгоритма a=47 div 2 b=41 mod 3 c=a div 7
найдите значение перемменых a,b и c после выполнения алгоритма a47 div 2 b41 mod 3 ca div
СРОЧНОООО, помогите пожалуйста с 6 заданием ))))
СРОЧНОООО, помогите пожалуйста с 6 заданием
11 класс, 5й номер, помогите пожалуйста решить :) Кто сможет всё, тот молодец) но лучше хоть что то, заранее спасибки!
11 класс, 5й номер, помогите пожалуйста решить Кто сможет всё, тот молодец но лучше хоть что то,
Помогите решить уровень С, готовлюсь к контрольной, не представляю, как это сделать. спасибо)
Помогите решить уровень С, готовлюсь к контрольной, не представляю, как это сделать.