Меню сайта

Задача №30

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


Program cikl_10-

Uses crt-

Var n,k:integer-

Begin

ClrScr-

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

readln (n)-

k:=0-

while n&gt-0 do

begin

n:=n div 10-

k:=k+1-

end-

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

readln-

end.

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

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