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

@Genius94 · Регистрация: 21.11.2011

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

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

@CodeR · 01.06.2012, 08:07

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

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

Pascal

Var n,m:integer;
Function Kol(m:integer):integer;
Var i:integer;
Begin
    i:=0;
    While m<>0 do 
     Begin
      m:=m div 10;
      inc(i);
     End;
    Kol:=i;
End;
Begin
    write('Введите 1-ое число: ');readln(n);
    write('Введите 2-ое число: ');readln(m);
    if Kol(n)>Kol(m) then writeln('В первом числе больше цифр') 
     else if Kol(n)<Kol(m) then writeln('Во втором числе больше цифр')
      else writeln('Равное кол-во цифр');
End.

@Genius94 1 / 1 / 0 Регистрация: 21.11.2011 Сообщений: 121
		1
	Подпрограммы. Даны два натуральных числа. Выяснить, в каком из них больше цифр 01.06.2012, 08:00. Показов 1545. Ответов 1 Метки нет (Все метки) 1)Даны два натуральных числа. Выяснить, в каком из них больше цифр, определив функцию для расчета количества цифр натурального числа. Помогите плиз! 0

	01.06.2012, 08:07

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

Решение