Предмет: Информатика,
автор: Аноним
С клавиатуры вводится положительное целое число. Определить количество цифр этого числа.
Ответы
Автор ответа:
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.
Попробуй эту программу
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.
Попробуй эту программу
Аноним:
Не хочет работать и выводит эту ошибку
Process killed, because it ran longer than 10 seconds. Is your code waiting for keyboard input which is not supplied?
Похожие вопросы
Предмет: Английский язык,
автор: karrkarr0
Предмет: Алгебра,
автор: artembrend2007
Предмет: Русский язык,
автор: mursalimainura8
Предмет: Обществознание,
автор: missevgeshka240
Предмет: Математика,
автор: Солнышко20051