Question

Задание 3. С клавиатуры вводится целое число. Составьте программу, которая позволяет найти количество цифр в этом числе.
Указание. Нужно ввести число, преобразовать число в строку, вычислить длину строки и вывести результат.

Answer 1

Ответ:

program digits_in_number;

var

num: integer;

num_str: string;

digits_count: integer;

begin

writeln('Введите число:');

readln(num);

num_str := IntToStr(num);

digits_count := Length(num_str);

writeln('Количество цифр в числе ', num, ': ', digits_count);

end.