• Помогите!
    Составьте программу для определения количества цифр в записи произвольного натурального числа

Ответы 2

  • Спасибо огромное!!!
  • VarA,N:integer;BeginWriteLn('Введите натуральное число');ReadLn(A);N:=0;While A>0 do   Begin   A:= A div 10;   N:=N+1;   End;WriteLn(N);End.
  • Добавить свой ответ

Войти через Google

или

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

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

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