Задано натуральное число N, вычислите сумму цифр числа используя цикл while

Question

51

Задано натуральное число N, вычислите сумму цифр числа используя цикл while

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

allescaput · Accepted Answer

36

allescaput

26 февраля 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: