Var n,k:integer;
begin
read(n);
while (n>0) do begin
k+=1;
n:=n div 10;
end;
writeln(k);
<span>end.</span>
Class Program
{
<span>static void Main(<span>string[] args</span>)
</span><span>{
int A;
Console.WriteLine ("Vvedite A");
Console.ReadLine (A);
if (A>0)
{
A=A+1;
}
else
{
A=A+0;
}
Console.WriteLine (A);
}</span>
1)Как можно поменять слова в Microsoft Word?(набрать комбинацию <span>Ctrl+H)</span>
<span>2)Как сделать гиперссылки(</span><span>Написать цифру, выделит цифру,далее нажать формат,шрифт нажимаешь надстрочный.)</span>
<span>3)Что сделать для нормального отображения ссылок в Microsoft Office(комб.</span><span>Alt+F9)</span>
<span>4)Как удалить не нужный лист?(выделить и нажать del)</span>
<span>5)Как можно разместить ячейки?(выбрать макет и нажать поля ячейки)</span>
Var
procedure kamen(x, y:integer);
{здесь рисуете свой камень. вместо координат х и у}
begin
{я опишу только анимацию камня. с графикой давно не работал-успел забыть}
x:=300;
y:=400;
while y<>700 do
if y<200 then begin
x:=x+15;
y:=y+10;
setcolor(15);
kamen(x, y);
delay(100);
setcolor(0);
kamen(x, y)
else
x:=x+15;
y:=y-10;
setcolor(15);
kamen(x, y);
delay(100);
setcolor(0);
kamen(x, y);
end;
closegraph;
readln;
end.
все числа нужно подогнать на практике
