составить программу на проверку является ли число однозначным двухзначным трехзначнам или четырехзначным

Question

Александрыч

4 мая, 12:53

+4

Ответы (1)

Знаете ответ на вопрос?

Таисьюшка · Answer 1

var i, k:integer;

begin

readln (n) ;

while i>0 do begin

k:=k+1;

i:=i div 10;

end;

writeln (k,'-znachnoe') ;

end.