Датчиком случайных чисел сгенерируйте случайное натуральное число в интервале от1 до 900. Определите, сколько цифр в полученном числе.

Var
  n: integer;
  s: string;

begin
  Randomize;
  n := Random(900) + 1;
  Str(n, s);
  writeln(Количество цифр в числе , n, равно , length(s))
end.

Тестовое решение:

Количество цифр в числе 598 равно 3

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.