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

[Darik102rus]

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

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

 

[Debianer]

Используйте 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]

определить,в каком из двух заданных чисел 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]

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

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