Найти сумму цифр трёхзначного числа n

я начал делать так:

program qwer;

var a, b, c, d, e : longint;

Begin

writeln ('Введите число a: ') ;

readln (a) ;

b:=a div 100;

c:=a mod 10;

e:=a;

d:=b+c+e;

writeln (d) ;

End.

Question

Егуня

23 января, 19:33

+5

Ответы (1)

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

Ульяха · Answer 1

Writeln ('Введите число a: ') ;

readln (a) ;

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

Не нужно ничего усложнять

Найти сумму цифр трёхзначного числа nя начал делать так:program qwer;var a, b, c, d, e : longint;Beginwriteln ('Введите число a: ') ;readln (a) ;b:=a div 100;c:=a mod 10;e:=a;d:=b+c+e;writeln (d) ;End.