Вычислить количество цифр заданного натурального числа n - Turbo Pascal

  1. Написать программу с рекурсивной функцией, вычисляющей количество цифр заданного натурального числа n.


textual

Код к задаче: «Вычислить количество цифр заданного натурального числа n - Turbo Pascal»

function CountN(N:integer):integer;
begin
 if (N div 10)=0 then
 CountN:=1
 else
  begin
   CountN:=1+CountN(n div 10);
  end;
end;
VAr a:integer;
begin
readln(a);
writeln(CountN(a));
 readln;
end.

СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 4.357 из 5



Похожие ответы
  1. Вычислить сумму ряда: S = √2d+√3d+√4d+…+√15d

  1. Два нечетных простых числа, разность между которыми равна 2, называются близнецами. На интервале от 1 до 1000 найти всех близнецов и подсчитать количество пар. Необходимо сделать ,используя только циклы ,а без функций и процедур я хз как(

  1. Вычислить С при любых значениях x, а, b:

  1. Создать текстовый файл, в который записать в столбик несколько чисел (<20). Составить программу, которая подсчитывала бы количество чисел в файле, а затем дописывала бы в его конец столько случайных чисел, чтобы всего чисел оказалось 20. Кроме того, программа должна найти минимальное и максимальное число в полученном файле.

  1. По введенным значениям аргумента х вычислить значение функции, заданной графически.Помогите пожалуйста написать программу в Паскале

  1. дан одномерный массив n целых . подсчитать количество вхождений многозначных чисел в данной последовательности

  1. Здравствуйте, помогите написать программу на паскале, где

  1. Вычислить - Z=m1+m2/2, где m1 и m2 наименьшие элементы массивов X(20) и X(35).Использовать подпрограмму нахождения минимального элемента массива.

  1. После символа «:» вставить «*», если количество символов «=» равно 5 строка вводиться пользователем

  1. Дано 8 вешественных чисел. Нужно вычислить разность между максимальным и минимальным из них. Заранее благодарен!