Написать программу: дано натуральное число (не более 10 000), определить количество цифр в нем

FarHowl FarHowl    3   22.08.2019 16:20    1

Ответы
xXDeXTeRXx xXDeXTeRXx  05.10.2020 12:58
Var i: byte;
begin
var n:=readinteger ('Введите n: ');
repeat
inc (i);
n:=n div 10;
until n=0;
write (i);
end.
ПОКАЗАТЬ ОТВЕТЫ
AZAZA2008 AZAZA2008  05.10.2020 12:58
//PascalABC.NET

begin
  write('Количество цифр: ', ReadString('Введите число:').Length)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика