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
var
s:string;
k,kp,i:integer;
pp:real;
begin
Readln(s);
k:=Length(s);
kp:=0;
for i:=1 to k do
if s[i]='1' then kp:=kp+1;
pp:=kp/k*100;
Writeln('Дано ответов- ',k,', из них верных- ',kp,' (',pp:0:2,'%)');
end.
Пример
100101110101
Дано ответов- 12, из них верных- 7 (58.33%)