Сколько различных значений числа d можно ввести, чтобы после выполнения программы было напечатано 171? var n, s, d: integer; begin readln(d); n : = 27; s : = 12; while s < = 2019 do begin s : = s + d; n : = n + 16 end; write(n) end.

Чтоб получить на выходе 171 составим уравнение: 27 + 16x = 171 x = 9 - это значит цикл должен выполниться 9 раз. чтоб цикл выполнился 9 раз составим неравенство исходя из условия s< =2019: (2019-12)9 = 223 - это знаит при d=223 цикл выполнится 10 раз (так как при 9 разе s=2019 и цикл выполнится еще раз). прибавим 1 к 223 и получим начальное значение при котором результат будет 171. далее узнаем конечное значение: (2012-12)/x = 8 x= 250 - это последнее значение, при котором результат будет 171. при d = 251 - не будет 171.  ответ: [224; 250] . всего 27 значений

дано:

g= 44,1 кгц=44100 гц

t= 1 мин=60 сек

v= 15 мбайт

i-?

 

решение:

i=v/g*t

i= (15*8*1024*1024 бит)/(44100гц*60сек)= 48 бит

 

var a: array[1..100] of integer;

i,s,n,m: integer;

begin

  randomize;

  read(n,m);

  for i : = 1 to 100 do

  begin

        a[i]: =random(m-n) +n;

        if (i mod 2 =0) and (a[i] mod 2 = 0) then s: =s+1;

  end;

  writeln(s);

end.