Написать программу на паскале, Вычесление суммы цыфр натурального числа N

Question

73

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

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

valermon · Accepted Answer

48

valermon

06 апреля 2023

Var n, s: integer; begin read (n); while n > 0 do begin s: =s+n mod 10; n: =n div 10; end; writeln (s); end.

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

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