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.