Задача. Дано целое число N (N > 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.

Задание

Задача. Дано целое число 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.