Дана блок-схема, записать программный код для неё.
Надюша13052002
3
14.03.2019 19:02
1 
Популярные вопросы
- Яка клавіша вилучае символ ліворуч від курсору? яка клавіша вилучае...
3 - 10 вопросов которые можно задать другу про ! (если есть возможность...
2 - Для уничтожения клопов наши предки замазывали щели домов свежим...
2 - Решить: на морском гражданском судне с российским флагом, находящемся...
1 - Чем искусственные сообщества отличаются от природных ответь короткий...
2 - Какое слово лишнее в каждом 1) землетрясение, путешествие, птицелов,...
2 - Как число 320 написать римскими цифрами?...
1 - Могут ли прямоугольник и ломаная иметь четыре общие точки...
2 - Іть скласти казка про сімейку горобчиків. треба на другий клас...
2 - Почему карла смелого розвали последним рыцарем...
1
var n,c:integer;
begin
c:=0;
readln(n);
if n>0 then
begin
c:= c +1;
n:=n div 10
else
write('c=',c);
end;
end.