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

для пятизначного другая программа нужна)

более сложная

Ок)

Ну ладно спс хоть за это))

не за что)

program summacifer;varsum,sot,des,ed,ch:integer;beginwriteln('введите трехзначное число');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.