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

Question

Информатика

Лукиана

6 октября, 13:57

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

+1

Ответы (1)

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

Трофима · Answer 1

Program z1;

var

a: integer;

c: byte;

begin

readln (a) ;

c:=0;

while a 0 do begin

c:=c + a mod 10;

a:=a div 10;

end;

writeln ('Summa: ', c) ;

end.