Задание
Задача. Дано целое число N \(N \\gt 0\). Определить сумму цифр в пятеричной записи числа N .
Составьте программу для решения задачи.
- program N;
- var S, x: integer;
- S := 0;
- begin
- readln \( x \);
- while x > 0 do begin
- S := S + x mod 5;
x := x div 5; - end;
- write\( S \);
- end.