Дано трёхзначное число.Найти сумму его чисел. Например число 321: 3+2+1=6
Answers & Comments
Redstoner
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.
Answers & Comments
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.