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

[immor]

Приветствую всех.
Проблема состоит в том,что я только только осваивающий паскаль,уж школа такая попалась,куда деваться и информатика на примитивном уровне.Придя в институт,надеялся расширить свой кругозор,но увы,напоролся на такую проблему-преподаватель.По идее он должен дать какие то навыки,чтобы я смог дальше сам,но увы,этого не произошло,а что имеем-дал задания и сказал как хочешь и не мне одному,а всей группе,чем вызвал явное недоумение.Переходить на другой факультет(как я вычитал на страницах данного раздела) или институт проблемно.Так что прошу проявить капельку сострадания,увы,не всем нам везет в нашей жизни и решить мне пару задач.Учить не ленюсь,но вот с нуля и такое сразу не под силу.

Пусть дано натурально число n (запись числа n в десятичной системе есть akak-1ak-2K…a0). Составьте программу для ответа на вопрос: Сколько цифр в числе n? (Например N=123 Ответ К=3)

Пусть даны целое число N, символы s1, s2, …, sn. Преобразуйте последовательность s1, s2, …, sn, удалив каждый символ звездочки (*) и повторив каждый символ, отличный от звездочки.

Как добавить данные в начало файла (написать программу)

как говорится,кто чем может помогите.

[Sazary]

Для начала, советую почитать правила форума.

Учить не ленюсь

Раз так, то полное решение писать не буду..

1. Есть число n.
Пускай n=123. Что будет, если разделить его на 10?
Получится 12,3. То есть 12 - целая часть, а 3 - остаток.
Далее снова делим на 10. 1,23.
И в последний раз: 0,123. Целая часть =0. На этом останавливаемся.
А сколько раз выполнили деление? 3. Вот и ответ.

Теперь запишем на паскале:
Как видно из вышенаписанного, нужно продолжать выполнять действия, пока целая часть не равна 0. То есть
while n>0 do
И у нас есть некоторый счетчик итераций, значение которого и будет являться ответом.
А тело цикла:
n div 10 (целочисленное деление)
inc(k) (увеличение счетчика)
=================================== ========

Вторая:
Как я понял, нужно просто вывести на экран то, что должно получиться?

Нужно в цикле пройти по каждому символу.
Если он равен "*" (if s[i] = '*' then), ничего не делать.
Иначе вывести его два раза (write(s[i],s[i])).

====================
Добавить данные в начало файла нельзя. Нужно либо записывать в новый, либо перезаписывать исходный (предварительно считав все в память)

[immor]

правила,это наверно про заголовок,но я не знаю как точно отразить мысль.
а можно сразу программу?пожалуйста

[Sazary]

Сообщение от immor

а можно сразу программу?

Как видно, все-таки ленитесь учиться.

var n,k : longint;
begin
readln(n);
k := 0;
while n>0 do
 begin
 n := n div 10;
 inc(k);
 end;
writeln(k);
readln;
end.

А теперь посмотрите, что добавилось (сравнивая с описанием в посте #2).
Сложно? Нет.
Вторую напишите сами. Требуется умение (на самом начальном уровне) работы с циклами и условиями (если не знаете, можете найти в любом учебнике по паскалю).
=======

я не знаю как точно отразить мысль.

Даже если вы не знаете, как отразить мысль, это не спасет тему от закрытия или удаления.
В данном случае могли бы назвать "Найти количество цифр в числе", или что-нибудь в этом духе.

[AlDelta]

Ответ получен, закрыто.