Написать программу: дано натуральное число (не более 10 000), определить количество цифр в нем
Написать программу: дано натуральное число (не более 10 000), определить количество цифр в нем
Гость
Ответ(ы) на вопрос:
Гостьvar i: byte;
begin
var n:=readinteger ('Введите n: ');
repeat
inc (i);
n:=n div 10;
until n=0;
write (i);
end.
Гость//PascalABC.NET
begin
write('Количество цифр: ', ReadString('Введите число:').Length)
end.
Не нашли ответ?
Похожие вопросы