Дано натуральное число. Определите количество цифр в нём. (в Паскаль)

Question

Информатика

Степаха

13 сентября, 13:54

Дано натуральное число. Определите количество цифр в нём. (в Паскаль)

+2

Ответы (1)

Знаете ответ?

Сюта · Answer 1

Более честный способ:

uses crt;

var s, ans:integer;

begin

read (s) ;

while s>0 do

begin

inc (ans) ;

s:=s div 10;

end;

writeln (ans) ;

end.

Более короткий:

uses crt;

var s:string;

begin

read (s) ;

writeln (length (s)) ;

end.