Дано натуральное чесло,напешите программу, которая находит сумму его цифр
dimdasha66
2
08.04.2020 06:27
1
Другие вопросы по теме Информатика
barbi18
19.06.2019 14:40
нури43
19.06.2019 14:40
Galya03
19.06.2019 14:40
DityaDyavola
19.06.2019 14:40
barinovasonya0p00t3v
19.06.2019 14:40
Frizi4
29.08.2019 05:30
ghj42
21.07.2019 07:50
Sofja007
21.07.2019 07:50
Популярные вопросы
- 18. иоганн гуттенберг изобрел печатный станок и выпустил первую печатную...
1 - 40кг-1кг273гр= 3т5ц26кг-26ц34кг= 13дм56мм-94см=...
2 - Выписать арфограмы в корне слова безударные гласные...
1 - Длина реки сырдарья 2137км.округруглите это число до разряда сотен. чему...
1 - Сэтих слов прилагательных зелений и синий сделать имя существительное...
2 - Complete the dialogue with some,any or a/a: john: hey sue, i m going to...
1 - Вканистру массой 0,5 килограмм налили 5 литров бензина определите силу...
2 - Углом при вершине равнобедренного треугольника называется угол, заключённый...
1 - Как узнать число,род и подеж в слове по опушке...
3 - Пож знайдить радиус кулi якщо его диаметр дорiвнюе 26,26...
2
готово
Объяснение:
program summa;
var
n, s, i: integer;
st: string;
begin
Write('Введите число: ');
ReadLn(n);
st := inttostr(n);
for i := 1 to length(st) do
s := s + strtoint(st[i]);
WriteLn('Сумма цифр данного числа равна ', s);
end.