var m, n: longint; k: integer;beginreadln(n); m:=n;k:=0; while m <>0 do begin k:=k 1; m:= m div 10; end; writeln('B числе ',n,'- ',k, ' цифр!'); readln;end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
