Program nn; uses crt; var o,b: integer; s: string; k: byte; p: real; function n0(l: integer): byte; begin repeat if l mod 10=0 then inc(l); l: =l div 10; until l=0; end; begin read (s); b: =length(s); k: =n0(s); p: =100*k/b; writeln(p); end. по надо найти процент правильных ответов условия: 1) тип записи ответов: 100101110101 2)1-правильный ответ 3)0-неправильный ответ 4)надо найти по кол. ответов и кол. правильных ответов, процент правильных ответов примечание: я написал программу но в ней ошибка, пытался устранить, но из-за нехватки знаний не получается среда pascal

Арбузярик    2   09.09.2019 16:20    0