< >

как сделать программу которая будет складывать все числа пятизначного числа

Ответы

Ответ дал: Kitsu
0

Вероятнее всего складывать надо цифры, а не числа

 

var x,i,k:integer;

begin

readln(x);

while x>0 do begin

i:=x mod 10;

k:=k+i;

x:=x div 10;

end;

writeln(k);

end.

Похожие вопросы
Русский язык
2 года назад
Помогите разобрать слова фонетически: Раздевалка, праздник, ёлка, экскурсия, хочу. Срочно!! Заранее спасибо:3
Русский язык
2 года назад
Из всех природных минералов алмаз самый твердый. Алмазом можно нанести царапину на поверхность любого минерала, но нет такого минерала, который был бы  способен поцарапать алмаз.Если поместить  алмаз
Алгебра
7 лет назад
Помогите найти!! №111
Математика
7 лет назад
благодаря этому ученому в нашу жизнь вошли знаки умножения"х" .какая фамилия этого ученого
Литература
10 лет назад
Люди помогите, срочно!!!! "Чем можно объяснить отношение Базарова к искусству: невежеством, пренебрежением как к бесполезному явлению или глубоким пониманием его силы воздействия на человека"? Прошу
Математика
10 лет назад
№1Товар стоил 600 рублей. Определите его цену после двух повышений цены-сначала на 10%, потом на 20% №2 Было 500 рублей.Потратили 50% всей суммы и 40% остатка.Сколько денег осталось?
Алгебра
10 лет назад
В летнем лагере 218 детей на каждого участника полагается 40 г сахара в день. В лагере 166 человек. Сколько килограммовых упаковок сахара понадобится на весь лагерь на 5 дней.
Геометрия
10 лет назад
длина катета AC прямоугольного треугольника ABC равна 8см окружность с диаметром AC пересекает гипотенузу AB в точке M найдите площадь треугольника ABC если известно что AM:MB=16:9