В каком из двух заданных чисел N и M меньше цифр

Darik102rus · 10.01.2014, 11:44

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

Debianer · 10.01.2014, 14:05

Используйте IntToStr(N) и второе число. Далее, сравнивайте Length первого и второго, и все.
Я на Дельфи пишу, но примерно так:
var
s1, s2: string;
begin
...
s1:=IntToStr(N);
s2:=IntToStr(M);
if Length(s1) > Length(s2) then
Result:= 'N' else
Result:= 'M';
...
end;

Или вообще короче:
if Length(IntToStr(N)) > Length(IntToStr(M)) then
Result:='N' else Result:='M';

Vladimir_S · 10.01.2014, 14:07

Цитата:

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

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

Пожалуйста:

Код:

Var
 M,N,Number_of_Digits_M,Number_of_Digits_N:Integer;
Begin
 Write('M= ');
 Readln(M);
 Write('N= ');
 Readln(N);
 If M=0 then Number_of_Digits_M:=1 else
  Number_of_Digits_M:=1+Trunc(Ln(M)/Ln(10));
 If N=0 then Number_of_Digits_N:=1 else
  Number_of_Digits_N:=1+Trunc(Ln(N)/Ln(10));
 If Number_of_Digits_M<Number_of_Digits_N then writeln('M') else
 If Number_of_Digits_N<Number_of_Digits_M then writeln('N') else
 writeln('Equal');
 Readln
End.

Vladimir_S · 10.01.2014, 14:09

Цитата:

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

Используйте IntToStr(N) и второе число...

Можно и так, через строки.

10.01.2014, 11:44	#1 (permalink)
Darik102rus Новичок Регистрация: 26.04.2013 Сообщений: 11 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	В каком из двух заданных чисел N и M меньше цифр определить,в каком из двух заданных чисел N и M меньше цифр. числа вводятся с клавиатуры. Pascal ABC Помогите пожалуйста.

10.01.2014, 14:05	#2 (permalink)
Debianer Member Регистрация: 07.08.2012 Адрес: Находка, Приморский край Сообщений: 336 Сказал(а) спасибо: 14 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 1671	Используйте IntToStr(N) и второе число. Далее, сравнивайте Length первого и второго, и все. Я на Дельфи пишу, но примерно так: var s1, s2: string; begin ... s1:=IntToStr(N); s2:=IntToStr(M); if Length(s1) > Length(s2) then Result:= 'N' else Result:= 'M'; ... end; Или вообще короче: if Length(IntToStr(N)) > Length(IntToStr(M)) then Result:='N' else Result:='M';

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070