Даны два натуральных числа.Выяснить,в каком из них больше цифр

@ocsoget · Регистрация: 28.05.2014

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

Даны два натуральных числа.Выяснить,в каком из них больше цифр.(определить функцию для рассчета количества цифр натурального числа).

@Puporev · 08.06.2014, 19:17

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

(определить функцию для расчета количества цифр натурального числа

Pascal

function kol(n:longint):byte;
var m:longint;
     k:byte;
begin
m:=n;
k:=0;
while m>0 do
 begin
  k:=k+1;
  m:=m div 10
 end;
kol:=k
end;

Добавлено через 3 минуты

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

в каком из них больше цифр.

Pascal

var a,b:longint;
..................
if kol(a)>kol(b) then write('Больше цифр в числе ',a)
else if kol(a)<kol(b) then write('Больше цифр в числе ',b)
else write('Цифр поровну');

@ocsoget 0 / 0 / 0 Регистрация: 28.05.2014 Сообщений: 30
		1
	Даны два натуральных числа.Выяснить,в каком из них больше цифр 08.06.2014, 18:35. Показов 16539. Ответов 1 Метки нет (Все метки) Даны два натуральных числа.Выяснить,в каком из них больше цифр.(определить функцию для рассчета количества цифр натурального числа). 0

	08.06.2014, 19:17

Даны два натуральных числа.Выяснить,в каком из них больше цифр

Решение