1)Дано целое многозначное...

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

 

а если число трехзначное?)))
 
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); {переводим каждый символ строки обратно в цифру}
  writeln(n);
 
 read(n);
 p:=1;
 for i:= 1 to n do
   p:= P*i;
 writeln(p);
 
End.