Question

 надо срочно
 Составить программу, которая для любого натурального числа печатает количество цифр в записи этого числа.
расписать все четко

Answer 1

Строками:
var s:string;
begin
WriteLn('vvedi chislo:');
ReadLn(s);
WriteLn('chislo cifr=',length(s));
ReadLn;
end;
Не строками:
var N,k:longint;
begin
write('N=');readln(N);
k:=0;
while N>0 do
begin
N:=N div 10;
k:=k+1;
end;
write('k=',k);
readln
end.

Answer 2

спасибо но это не правильно

Answer 3

Нужно найти число цифр в числе?

Answer 4

нет