var i, j: integer;
begin
readln(i);
repeat
i := i div 10;
Inc(j);
until i > 0;
writeln(j);
end.
задача. подсчитать количество цифр в числе
дано натуральное число n. нужно подсчитать количество цифр в числе.(PASCAL)
Вижу уже 2 способа:
1. Переводим в строку и считаем символы. Тупо и лаконично.
2. В цикле делим на 10, отбрасывая остаток. Считаем, сколько раз можно поделить. Этот способ должен быть быстрее для стандартных целочисленных типов.
Второй способ можно сделать с помощью рекурсии.
1. Переводим в строку и считаем символы. Тупо и лаконично.
2. В цикле делим на 10, отбрасывая остаток. Считаем, сколько раз можно поделить. Этот способ должен быть быстрее для стандартных целочисленных типов.
Второй способ можно сделать с помощью рекурсии.
Способ 3й–логарифм по основанию 10(не знаю,правда,есть ли он в Паскале)
а можно задачу написать???:(
Пишите, сделаю
icq: 588002847
email: [email]flash_1989@ukr.net[/email]
icq: 588002847
email: [email]flash_1989@ukr.net[/email]
Цитата: nastyanan
а можно задачу написать???:(
Задачу вы написали в своём первом сообщении.
мне решение как бы надо