Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Program _1;

var x,a,b,c,s:integer;

begin

write(Введите исходное число);
readln(x);
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;
s:=a+b+c;
writeln(s=,s)
end.