Меню сайта

Задача №47

Найти количество цифр в целом числе.


Program ciklp_10-

Uses crt-

Var n,k:integer-

Begin

ClrScr-

Writeln(‘введите число’)- readln (n)-

k:=0-

repeat

n:=n div 10-

k:=k+1-

until n=0-

writeln(‘количество цифр =’,k)-

readln-

end.

Категория: Циклы | Дата: 09.11.12

Меню раздела
Блок