Сгенерировать случайное целое число и определить его разрядность

@T-34 · Регистрация: 07.11.2012

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

Форумчане, помогите пожалуйста...срочно надо...
Сгенерировать случайное целое число < 32000 и определить его разрядность.

Psilon · 07.11.2012, 20:13

Randomize

@T-34 · 07.11.2012, 20:31 **[ТС]**

все равно не понял

@ermolay · 07.11.2012, 21:03

Psilon, Randomize в PascalABC вовсе не обязателен

T-34, закомментированные строки нужны в turboPascal, оставил на всякий..

Pascal

var
  n: integer;
  k: byte;
begin
  //randomize;
  n:=random(3200);
  writeln('n=',n);
  k:=0;
  while n>0 do
  begin
    n:=n div 10;
    inc(k);
  end;
  writeln('razmernost n=',k);
  //readln;
end.

Psilon · 07.11.2012, 22:42

ermolay, быловариант еще можно

Pascal

var
  n: integer;
begin
  //randomize;
  n:=random(3200);
  writeln('n=',n);
  writeln('razmernost n=', length(inttostr(n)));
  //readln;
end.

Сгенерировать случайное целое число и определить его разрядность

Решение

Решение

@T-34 0 / 0 / 0 Регистрация: 07.11.2012 Сообщений: 4
		1
	Сгенерировать случайное целое число и определить его разрядность 07.11.2012, 19:45. Показов 2355. Ответов 4 Метки нет (Все метки) Форумчане, помогите пожалуйста...срочно надо... Сгенерировать случайное целое число < 32000 и определить его разрядность. 0

Psilon Master of Orion 6098 / 4954 / 905 Регистрация: 10.07.2011 Сообщений: 14,522 Записей в блоге: 5
	07.11.2012, 20:13	2
	Randomize 1

@T-34 0 / 0 / 0 Регистрация: 07.11.2012 Сообщений: 4
	07.11.2012, 20:31 [ТС]	3
	все равно не понял 0

	07.11.2012, 22:42

Опции темы