Предмет: Информатика, автор: Аноним

С клавиатуры вводится положительное целое число. Определить количество цифр этого числа.

Ответы

Автор ответа: habibt123456
0
Program n_1;
var n,count:integer;
Begin
Write('введите натуральное полож.число n -');
read(n);
count:=0;
While n>0 do
Begin
n:=n div 10;
count:=count+1;
end;
write(count);
End.
Попробуй эту программу

Аноним: Не хочет работать и выводит эту ошибку
Аноним: Error(s):
Process killed, because it ran longer than 10 seconds. Is your code waiting for keyboard input which is not supplied?
habibt123456: Ты вводила цифру ?
habibt123456: Она работает
Похожие вопросы
Предмет: Английский язык, автор: karrkarr0
Предмет: Алгебра, автор: artembrend2007