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

Question

Информатика

Измаил

25 сентября, 01:47

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

+4

Ответы (2)

Знаете ответ на вопрос?

Корнюха · Answer 1

Var

i, n, s: Integer;

begin

write ('Введите трехзначное число ') ;

read (n) ;

i:=0;

while (n0) Do

begin

s : = n Mod 10;

i:=i+s;

n: = n Div 10;

end;

writeLn ('Сумма цифр : ', i)

end.

Стюра · Answer 2

Program n1;

var a: integer;

begin

readln (a) ;

a:=abs (a) ;

write ((a div 100) + (a mod 10) + (a mod 100 div 10)) ;

end.