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