Как сделать программу которая будет складывать все числа пятизначного числа
Акинаки
1
28.03.2019 00:30
4
Другие вопросы по теме Информатика
DimaIvanov56234
20.09.2019 11:20
настя6670
10.12.2019 23:10
zofiaoxd1zb
10.12.2019 23:13
Владимирович11
10.12.2019 23:16
ariana76
10.12.2019 23:19
ivkov2003
10.12.2019 23:19
школа5553
27.08.2020 16:29
jessikafox
28.08.2020 16:56
Популярные вопросы
- Действия белых и красных во время гражданской ! )...
1 - Запишите определения: неметаллические свойства элемента - и металлические...
2 - Вычислите: 1 1+ 1 1 + 1 2 варианты ответов: а) 0,6 б) 1 в) 2 г) 0,5 2 5...
2 - Особенности цивилизации начало 13 века...
3 - Укажите знак δh0 в процессах: а) na(к) → na(г); б) 2c2h2 + 5o2 → 4co2 +...
3 - Когда ты слушаешь песню детство это я и ты какие эмоции и мечты приходят...
2 - Какое из утверждений верно: а) 1/4 часа -12 мин, б) 1/12 года-1 месяц,...
2 - Решите на 1 копировальной машине можно распечатать 6 страниц в минуту,а...
3 - Тема вопросы схвостиком, нужно докончить.. yesterday we didn’t get an invitation...
3 - Составьте план третьего и четвёртого действия горе от ума по явлениям....
2
Вероятнее всего складывать надо цифры, а не числа
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.