Определить количество цифр в числе

Экономика

Определить количество цифр в числе

Гость

Ответ(ы) на вопрос:

Гость

Var A,k:integer; Begin WriteLn('Введите целое число'); ReadLn(A); k:=0; While A<>0 do Begin k:=k+1; A:=A div 10 End; WriteLn('k = ',k) End.

Не нашли ответ?

Похожие вопросы

РЕБЯТ, ПОМОГИТЕ ПОЖАЛУЙСТА!!! Надо написать сообщение об истории человека в искусстве:с

Ответить

ЛЮДИ!!!! СРОЧНО ПОМОГИТЕ С КРАЕВЕДЕНИЕМ!!!! ПОЖАЛУЙСТА!!!! Что означает слово рать из легенды Утёсы над волгой. Выпиши все слова, относящиеся к во...

Ответить

Геометрия

Найдите среднюю линию A1B1 треугольника ABC, если AB= 7 см.

Ответить

Английский язык

1. She does a lot of (read). 2. What he likes is (drive). 3. No (park) here. 4. We heard a lot of (shout) last night. 5. Quick (run) saved him. 6. ...

Ответить

Обществознание

Хто був вчителем Александра Македонського

Ответить