NНайти сумму цифр целого числа А (вводится с клавиатуры). Составить программу…

Question

85

NНайти сумму цифр целого числа А (вводится с клавиатуры). Составить программу наПаскале

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

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

universalavto · Accepted Answer

64

universalavto

10 сентября 2022

var n, sum: longint; begin read (n); sum: =0; while n > 9 do begin sum: =sum+n mod 10; n: =n div 10; end; sum: =sum+n; writeln (sum); end.

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

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