1. Информатика
  2. Составить программу,

Составить программу, сумма цифр пятизначного числа

swordfishtrombone swordfishtrombone    2   19.07.2019 19:10    0

Ответы
frost79naumenkow6nt4 frost79naumenkow6nt4  19.08.2020 13:48
Var n,s : Integer;
Begin
  Readln(n);
  s:=0;
  While n>0 do
  Begin
    s:=s+(n mod 10);
    n:=n div 10;
  end;
  Writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
женя1362 женя1362  16.07.2019 17:50
Решите ребус: б=8 дедка+ бабка= сказка...
raha12003 raha12003  20.05.2020 17:54
ДОМОЖІТЬ БУДЬ ЛАСКА дуже треба терміново​...
затура56 затура56  16.03.2020 06:40
Pascal ABC Найти сумму элементов массива, имеющих нечетные индексы....
Mariya1985 Mariya1985  16.03.2020 06:42
Сделайте 3 задание в опен оффисе...
Katyaguccigang Katyaguccigang  16.03.2020 06:43
До ть будь ласка зробити таблицю у MS Excel за зазначеними умовами:Музей пропонує знижки відвідувачам, залежно від категорії:  дітям до 7 років – вхід безкоштовний (знижка складає...
golovko2006ovr6m1 golovko2006ovr6m1  16.03.2020 06:43
Язык Python Ви - медичний працівник дитячої поліклініки, заповнюсте форму зважуванняпацієнтів. Напишіть код програми, яка порівнює вагу двох пацієнтів. Створітьзмінні раtiеnt A, patient...
bulatdikhin bulatdikhin  16.03.2020 06:44
Pascal ABC Найти сумму элементов массива, значения которых кратны 3 и 5....
Сменка Сменка  16.03.2020 06:47
Язык Python: Напишіть код програми, яка порівнює три числа. Користувач вводить значення трьох чисел, результатом роботи програми є виведення найбільшого з чисел. *...
Albina1967 Albina1967  13.05.2020 15:18
Выполни построение построй прямоугольные треукольники со сторонами прилегающими к прямому углу 6см и 8см;5см 7см найди площади треугольников....
daniltyrov719 daniltyrov719  13.05.2020 15:18
1. При открывании некоторых дверей мы слышим звук похожий на звук скрипки. Как можно объяснить это? 2. на какую стену в многоэтажных домах полезно повесить ковер? 3. можно ли получить...

Популярные вопросы