Подсчёт количества цифр в числе

@Julia161 · Регистрация: 19.12.2011

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

Подсчитать k – количество цифр в десятичной записи целого неотрицательного числа n.

@Arcor · 21.04.2012, 15:06

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var i: Integer;
    k, n: Integer;
begin
  k := 123242;
  n := k;
  i := 0;
  repeat
      k := k div 10;
      inc(i);
  until k = 0;
  Writeln('Kol-vo zifr v chisle ', n, ' = ', i);
  ReadLn;
end.

@Nikitko_Cent · 21.04.2012, 15:54

Delphi

1
2
3

k1:=inttostr(k);
writeln('Kol-vo cifr: ', length(k1));
readln;

Тупанул я щас, наверное?

deathNC · 21.04.2012, 18:20

Не по теме:

Nikitko_Cent, не, у тебя решение тоже правильное, но решение у Arcor более корректное :)

@Nikitko_Cent · 21.04.2012, 21:43

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

Не по теме:

Nikitko_Cent, не, у тебя решение тоже правильное, но решение у Arcor более корректное :)

Не по теме:

А, ок :)

@Julia161 0 / 0 / 0 Регистрация: 19.12.2011 Сообщений: 33
		1
	Подсчёт количества цифр в числе 21.04.2012, 14:58. Показов 3463. Ответов 4 Метки нет (Все метки) Подсчитать k – количество цифр в десятичной записи целого неотрицательного числа n. 0

deathNC
	21.04.2012, 18:20 #4
	Не по теме: Nikitko_Cent, не, у тебя решение тоже правильное, но решение у Arcor более корректное :) 0

@Nikitko_Cent 148 / 118 / 37 Регистрация: 27.10.2011 Сообщений: 690
	21.04.2012, 21:43	5
	Сообщение от deathNC Не по теме: Nikitko_Cent, не, у тебя решение тоже правильное, но решение у Arcor более корректное :) Не по теме: А, ок :) 0