Ответы 1

  • program sumcifr; uses crt; var n: longint; s: integer; j:integer; begin clrscr; s:=0; j:=0; write('ввести число --> ');readln(n); while n>0 do begin j:=j+1; s:=s+n mod 10; n:=n div 10; end; writeln('число цифр числа = ',j); writeln('сумма цифр числа = ',s); readln; end.
    • Автор:

      foxsuws
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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