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