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

  • Ввести целое число и найти сумму его цифр(1234)

    Паскаль

     

     

     

Ответы 2

  • var s,i:integer; begin readln(i); s:=0; repeat s:=i mod 10 + s; i:=i div 10 until i=0; writeln(s); readln end.  

    • Автор:

      mata
    • 6 лет назад
    • 0

  • var

      a, Summ:integer;

    begin

      write('Введите число ');

      readln(a);

      Summ := 0;

      while a > 0 do

      begin

        Summ := Summ + a mod 10;

        a := a div 10;

      end;

      writeln('Сумма цифр равна ', Summ);

    end.

     

    • Автор:

      cedricliu
    • 6 лет назад
    • 0

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

Еще вопросы

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

Войти через Google

 или

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

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

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