сервис вопросов и ответовИри изготовлении детали измеряется её диаметр . если он меньше 4 и больше 5 то деталь небракованная .определите процент брака в партии из n деталей
5-9 класс|
|
Matveeva7611
14 окт. 2016 г., 1:16:13 (7 лет назад)
Mizerkov2015
14 окт. 2016 г., 2:00:43 (7 лет назад)
var
n,nr,b,p:integer;
a:array[1..1000] of integer
begin
nr:0;
b:=0;
readln (n);
for i:1 to n do
begin
readln(A[I]);
if a[i]>5 or a[i]<4 then inc (nr) else inc (b);
end;
p:=b div nr;
writeln (p);
readln
end.
Ответить
Другие вопросы из категории
Читайте также
уличный продавец газет получает a рублей с продажи каждой из первых 50 газет. С продаж каждой из остальных газет он получает на 20% больше. разработайте п
рограмму,которая вычислит заработок продавца,если он продает за день 200 газет.
Мини-проект 2 («Kv_uravn»).
Создайте проект для расчёта корней квадратного уравнения. Продумайте названия
текстовых полей, чтобы не запутаться при программировании. Чтобы поставить
«квадрат» для икса, просто используйте ещё одну метку (Label). При нажатии на кнопку
«Рассчитать» вычисляется дискриминант, и, если он меньше нуля, то сразу
выдаётся сообщение «Корней нет» (через MsgBox), если равен нулю, то рассчитывается только значение X1, а если больше нуля – то X1 и X2. Рассчитанные значения корней должны
появиться в соответствующих текстовых полях на форме. Пример вида формы показан
на рисунке:
Для 4 произвольных чисел, введенные с клавиатуры, выведите на экран соответствующие результаты.если разностьпервых двух чисел превышает четвертое,то
выведите все четыре числа без изменения. Если сумма всех чисел не больше 80, то выведите только два первых числа. Если выполняется одновременно два перечисленных выше условия, то выведите только два последних числа.Иначе, выведите все четыре числа,увеличев их на 5
Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты.
· Если второе и четвертое числа отрицательны, то выведите их произведение.
· Если первое и третье числа больше 10, то выведите все четыре числа, увеличив их в десять раз
· Если выполняются одновременно два перечисленных выше условия, то выведите эти четыре числа без изменения.
· Иначе, выведите все четыре числа, уменьшив их в десять раз.
Составьте соответствующие отладочные примеры и проверьте работу каждой программы.
Вы находитесь на странице вопроса "Ири изготовлении детали измеряется её диаметр . если он меньше 4 и больше 5 то деталь небракованная .определите процент брака в партии из n деталей", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.