Var a,k:integer;
begin
write('a (>0) = ');
readln(a);
k:=0;
while a>0 do
begin
k:=k+1;
a:=a div 10;
end;
writeln('k = ',k);
end.
Пример:
<span>a (>0) = 180653
k = 6</span>
В далекие времена, когда еще не существовало современных технологий, людям приходилось быть весьма практичными, поэтому для бытовых нужд использовались самые неожиданные предметы. Для письма в Древней Индии приспосабливали, например, камни, и очень часто - пальмовые листья, поскольку те были более удобными.Первоначально листья высушивали, а после этого нарезали длинными и узкими кусочками. Чаще всего использовали листья пальмы талипот, которые можно было легко размягчить перед сушкой.
Может А варианты шгар. или В. точно блмедим.
При правильной игре выйграет тот, кто пойдёт первым и возьмёт все камни из кучки =)