Как в pascal записать сумму цифр целого числа? это ! и главное трехзначного числа,без сумашедших кодов на 5 страниц!
287
333
Ответы на вопрос:
Var n,s: integer; begin write('введите 3х-значное натуральное число: '); read(n); s: =(n div 100)+((n div 10) mod 10)+(n mod 10); writeln('сумма цифр числа равна ',s); end.
Популярно: Информатика
-
максим885б26.11.2022 12:24
-
myza0511.01.2021 10:49
-
Ука1234513.01.2020 17:22
-
polina134724.12.2020 09:09
-
HelpmeAnna114.07.2022 05:39
-
Nastya90Lapka18.08.2020 16:02
-
KekalolQ22.05.2020 07:11
-
федяступкин22.11.2022 11:29
-
za2ba2wa204.02.2021 13:10
-
HepBbI16.01.2021 23:09