задано натуральное число N , вычислите сумму цифр числа используя цикл while
5-9 класс
|
var sum,n:int64;
begin
write('Vvedite chislo: ');
readln(n);
while(n>0) do begin
sum:=sum+(n mod 10);
n:=n div 10;
end;
writeln(sum);
readln;
end.
Другие вопросы из категории
слова и первым-для второго.
число: количество чисел, кратных 3 и оканчивающихся на 4.
Читайте также
Решить задачи на турбопаскале:
1.Дано натуральное число Найти сумму и произведение первых двух чисел.
2.Дано n-значное натуральное число. Правда ли что квадрат произведения цифр числа равняется кубу суммы цифр числа.
3.Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в десятичной системе счисления.
Пример:
Введите целое число:
1 2 3 4
Сумма цифр числа 1 2 3 4 равна 10
Пример ввода:567.
Пример вывода:сумма цифр числа 567-четное число
Пример:
Введите целое число:
1234
Сумма цифр числа 1234 равна 10.
Пример:
Введите целое число:
1 2 3 4
Сумма цифр числа 1 2 3 4 равна 10