Дана блок-схема, записать программный код для неё. Пжлстаааа

Дана блок-схема, записать программный код для неё. Пжлстаааа

Задать свой вопрос
1 ответ

var n,c:integer;

begin

c:=0;

readln(n);

if ngt;0 then

begin

c:= c +1;

n:=n div 10

else

write('c=',c);

end;

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт