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

Question

Информатика

Зинуша

18 января, 18:00

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

+5

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