РЕшите задачу по информатике.Срочнооо.
Пользователь вводит простое целое число больше 0.Определить сколько в нем цифр,и сколько четных цифр.Построить блок-схему.

что такое length?

Функция. Определяет кол-во символов в строке.

спасибо

Не за что

Вот получше версия.varn,i,chet:integer;s:string;beginreadln(n);str(n,s); // Функция str преобразует число n в строку sfor i:=1 to length(s) do beginif (ord(s[i])-48) <= 0 then halt; // Процедура halt завершает программу если введенное число <=0if (ord(s[i])-48) mod 2 = 0 then chet:=chet+1;end;writeln('Кол-во цифр - ',length(s),' Кол-во четных - ',chet);end.