Найти сумму цифр трёхзначного числа 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.
Найти сумму цифр трёхзначного числа 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.
Гость
Ответ(ы) на вопрос:
Гостьwriteln('Введите число a: ');
readln(a);
writeln(a div 100 + a div 10 mod 10 + a mod 10);
Не нужно ничего усложнять
Не нашли ответ?
Похожие вопросы