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

Дано трёхзначное число.Найти сумму его чисел.
Например число 321: 3+2+1=6

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

Program summacifer;
var
sum,sot,des,ed,ch:integer;
begin
writeln(введите трехзначное число);
readln(ch);
sot:=ch div 100;
ed:= ch mod 10;
des:= ch mod 100;
des:= des div 10;
sum:=sot+ed+des;
writeln(сумма цифр вашего числа равна,sum);
end.