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

Question

Информатика

Аринка

8 августа, 20:18

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

+2

Ответы (2)

Знаете ответ?

Дашуня · Answer 1

Program n1;

var a: integer;

begin

readln (a) ;

a:=abs (a) ;

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

end.

Фридрих · Answer 2

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.