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

  • 25 БАЛОВ ЗА ОТВЕТ. Добрый день, прошу исправить мой код. Его суть заключается в нахождении чисел Армстронга в интервале

Ответы 1

  • Число вводится в формате строки.

    var a: integer; i,j,k,c,m,e: integer; s: string; f: Boolean;beginf:=false; for i:=100 to 9999 do begin str(i,s); a:=0; for j:=1 to Length(s) do begin val(s[j],m,e); c:=1; for k:=1 to Length(s) do c:=c*m; a:=a+c; end; if a=i then write(a,\' \'); end; end.

    • Автор:

      ishaan
    • 4 года назад
    • 0

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

Еще вопросы

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

Войти через Google

 или

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

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

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