Написать функцию, вычисляющую количество цифр натурального числа

@ольгару · Регистрация: 18.01.2011

Author24 — интернет-сервис помощи студентам

Помогите решить!
Написать функцию, вычисляющую количество цифр натурального числа. Используя ее, определить, в каком из двух данных чисел больше цифр.
напишите пожалуйста как она будет выглядеть на паскале.

@Maror · 25.01.2011, 17:30

Pascal

function how_many (source : integer) : integer;
var result, fsource: integer;
begin
result := 0;
fsource := source;
  repeat
  fsource := fsource div 10;
  inc (result);
  until fsource = 0;
how_many := result;
end;

@ольгару 3 / 3 / 0 Регистрация: 18.01.2011 Сообщений: 74
		1
	Написать функцию, вычисляющую количество цифр натурального числа 25.01.2011, 15:27. Показов 1437. Ответов 1 Метки нет (Все метки) Помогите решить! Написать функцию, вычисляющую количество цифр натурального числа. Используя ее, определить, в каком из двух данных чисел больше цифр. напишите пожалуйста как она будет выглядеть на паскале. 0

	25.01.2011, 17:30

Опции темы

Написать функцию, вычисляющую количество цифр натурального числа

Решение