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

@ягодка · Регистрация: 04.04.2010

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

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

@КонецСвета · 10.06.2012, 14:46

Pascal

uses crt;
var n1,n2: longint;
 
function Kol (n: longint): byte;
var kz: byte;
begin
kz:=0;
repeat
n:=n div 10;
inc(kz);
until n<1;
Kol:=kz;
end;
 
begin
write('n1='); readln(n1);
write('n2='); readln(n2);
if Kol (n1)>Kol (n2) then writeln('в первом') else
   if Kol (n2)>Kol (n1) then writeln('во втором') else
      writeln('одинаково');
readln;
end.

@ягодка 0 / 0 / 0 Регистрация: 04.04.2010 Сообщений: 34
		1
	Написать функцию, подсчитывающую количество цифр числа 08.06.2012, 19:09. Показов 5318. Ответов 1 Метки нет (Все метки) Написать функцию, подсчитывающую количество цифр числа. Используя её определить в каком из двух данных чисел больше цифр. 0

	10.06.2012, 14:46

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

Решение