информатика при изготовлении детали измеряется её диаметр . если он меньше 4 и больше 5 то деталь небракованная .определите процент брака в партии из n деталей
Ответы на вопрос
Ответил PopCop312
0
var a,i,n,k:integer;
begin
readln(n);
for i:=1 to n do begin
read(a);
if (a<4) or (a>5) then k+=1;
end;
writeln(k/n*100:1:1);
end.
begin
readln(n);
for i:=1 to n do begin
read(a);
if (a<4) or (a>5) then k+=1;
end;
writeln(k/n*100:1:1);
end.
Новые вопросы