Question

1)Дано целое многозначное число n.Найти сумму цифр этого числа 2)Найти произведение первых n натуральных чисел.2)Найти произведение первых n натуральных чисел.

Answer 1

а если число трехзначное?)))

 

var n,i,p:integer;

s:string;

Begin

  read(n);

  s:=str(n) ; {переводим число в строку}

  n:=0;

  for i := 1 to length(s) do

    n:= n+ int(s[i]); {переводим каждый символ строки обратно в цифру}

  writeln(n);

 

 read(n);

 p:=1;

 for i:= 1 to n do

   p:= P*i;

 writeln(p);

 

End.

Answer 2

1) Для нахождения суммы цифр многозначного числа n нужно разложить число на отдельные цифры, а затем сложить их. Например, для числа 1234 сумма цифр будет равна 1+2+3+4 = 10.

2) Чтобы найти произведение первых n натуральных чисел, нужно перемножить все числа от 1 до n. Например, произведение первых 5 натуральных чисел будет равно 1*2*3*4*5 = 120.