Информатика 9 класс сделать нужно через программу паскаль

пригодность детали оценивается по размеру в, который должен соответствовать интервалу (a-±8). определить, имеются ли в партии из n деталей бракованные.
если "да", то подсчитать их количество.
иначе выдать отрицательный ответ.

025858 025858    1   04.11.2019 15:55    9

Ответы
Zara2217 Zara2217  10.10.2020 11:11

var

 n, i, k: integer;

 a, b: real;

begin

 read(n, a);

 k := 0;

 for i := 1 to n do

 begin

   read(b);

   if (b < a - 8) or (b > a + 8) then

     k := k + 1;

 end;

 if k > 0 then

   write(k)

 else

   write('нет');

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика