Задать вопрос Регистрация
Помочь другим

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

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

Ответы 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.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years