Задание

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