Задача 6 Урок 20

Primary tabs

Submitted by jl8qy9kd_pro on Fri, 09/10/2021 - 19:30

Forums:

Задача 6 Урок 20

Дано натуральное число N. Вычислите сумму его цифр.
(При решении этой задачи нельзя использовать строки, списки, массивы (ну и циклы, разумеется). Разрешена только рекурсия и целочисленная арифметика. Используйте операцию получения остатка от деления, и операцию целочисленного деления).

var N,s : integer;

function Num(N,s: integer) : integer;
begin
  s := s + N mod 10;
  N := N div 10;
  if (N > 0) then
    Num(N,s)
  else
    write(s);
end;

begin
  readln(N);
  s := 0;
  Num(N,s);
  readln;
end.
  • Log in to post comments
  • 3135 reads
vedro-compota's picture

vedro-compota

Sun, 10/03/2021 - 12:44

1) функция должна возвращать сумму
2) решить с одним аргументом

_____________
матфак вгу и остальная классика =)

jl8qy9kd_pro

Fri, 10/08/2021 - 14:32 

var N,s : integer;

function Num(N,s: integer) : integer;
begin
 if(N > 0) then
   result :=   Num((N div 10),s + N mod 10)
 else
   result:= s ;
end;

begin
  readln(N);
  s := 0;
  writeln(Num(N,s));
  readln;
end.
vedro-compota's picture

vedro-compota

Sun, 10/10/2021 - 13:00

по аналогии с задачей http://fkn.ktu10.com/?q=node/13389 можно использовать 1 аргумент в функции

_____________
матфак вгу и остальная классика =)

jl8qy9kd_pro

Sun, 10/17/2021 - 12:08 

var N :integer;

function summ(N :integer) :integer;
begin
  if (N < 10) then
    result := N
  else
    result := N mod 10 + summ(N div 10);
end;

begin
  readln(N);
  writeln(summ(N));
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 10/17/2021 - 12:42

засчитано

_____________
матфак вгу и остальная классика =)