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

Question

Информатика

Зинуша

19 ноября, 03:50

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

+4

Ответы (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.