Павел
5 год назад
program NN;uses crt;var O,b:integer; s:string; k:byte; p:real;function N0(l:integer):byte;begin repeatif l mod 10=0 theninc(l);l:=l div 10;until l=0;end;beginread (s);b:=length(s);k:=N0(s);p:=100*k/b;writeln(p);end. По заданию надо найти процент правильных ответовУсловия:1) тип записи ответов: 1001011101012)1-правильный ответ3)0-неправильный ответ4)надо найти по кол. ответов и кол. правильных ответов, процент правильных ответовПримечание: Я написал программу но в ней ошибка, пытался устранить, но из-за нехватки знаний не получаетсяСреда Pascal
ОТВЕТЫ
Давид
Oct 24, 2020
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%)
602
Смежные вопросы:
