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

2)Найти произведение первых n натуральных чисел.

1

Ответы и объяснения

2012-03-06T13:29:35+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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

 

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.