Program nn; uses crt; var o,b: integer; s: string; - вопрос №8141334 от DarkD0711 04.11.2020 11:54

Question

Информатика: 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)надо найти по кол. ответов и кол. правильных ответов, процент правильных ответов примечание: я написал программу но в ней ошибка,

DarkD0711 · Answer

// PascalABC.NET 3.3, сборка 1561 от 02.11.2017

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%)